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FACILITY: EXECUTIVE, 1/0 DRIVERS 

ABSTRACT: 

THIS MODULE IS THE DRIVER FOR THE LPA-11 (LABORATORY PERIPHERAL 
ACCELERATOR). 

ENVIRONMENT: KERNEL MODE, NON-PAGED 


AUTHOR: STEVE BECKHARDT, CREATION DATE: 7=APR-78 


MODIFIED BY: 
v03-004 meone Richard N. Holstein 28-Aug-1984 
Missing number Rb. in V03-002 caused ACCVIO. 
v03-003 KDM0059 Kathleen D. Morse 14-Jul-1983 
change tis time-wait loop to use new *TIMEDWAIT macro. 
Add DEF. 
v03-002 LJA0072 urie J. Anderson 17-Jun-1983 


yorrecs DODIAGERL” to praperly rec ver from poet by space 
n error log buffers error condition 


v03-001 Kondoos Kathleen D. Morse 28-Jun-1982 
Added SOCDEF and S$SSDEF. 
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a8 18 § ; LPA=11 DEVICE REGISTER OFFSETS 
09 a7 
90 118 SDEFINI LA 
000 120 SDEF LKw 1 ; CONTROL IN STATUS REGISTER 
00 121 LOTELD. LA_CISR, x . 
0 1 é GO, ,M>,- : GO BIT 
00021 513.2 + RESERVED BIT 
00 124 <HEX.2>,~ + MEMORY EXTENSIOON BITS 
002 125 <,2>,° + RESERVED BITS 
000 1 6 <fE,.M>,- : READY IN INTERRUPT ENABLE 
0 1 <RDY.,M>,= + READY IN 
000 128 <,2>,° ; RESERVED BITS 
0002 129 <ROMO, ,M>,= + ROM OUTPUT BIT 
0002 130 <ENAL >,- + ENABLE ARBITRATION 
000 131 + RESERVED BIT 
0002.1 é Senna, ,M>,- + CRAM WRITE 
0002 13 <RESET, ,M>, = : RESET (MASTER CLEAR) 
0002 134 <RUN, ,M>, = * RUN 
at 
0002 137 $SDEF LA_COSR .BLKW : CONTROL OUT STATUS REGISTER 
0004 138 -VIELD LA_COSR,0,<- 
0004 139 <USER,3>,- : USER INDEX 
0904 140 <,3>,- : RESERV ED BITS 
0004 141 <fE,.m>,- + READY OUT INTERRUPT ENABLE 
0004 148 <RDY, ,M>,= : READY OUT 
0004 14 <ERRCD,5>,- : ERROR CODE 
0004 144 <ERRTP.2>.- : ERROR TYPE 
0004 145 <ERROR, ,M>,- : ERROR BIT 
oe it ks 
0004 148 SDEF  LA_RDA .BLKW 1 ; RDA ADDRESS REGISTER 
0006 130 SDEF § LA_MAINT .BLKW 1 : MAINTENANCE STATUS REGISTER 
0008 138 SDEFEND LA 
0000 «15 
$333 is 
0000 138 > LPA-11 SPECIFIC UCB OFFSETS 
0000 137 : 
ao 
000000a0 8 161 .=UCBSL_DPC+4 
OA 188 SDEF UCBSL -RDABA -BLKL 1 ; UNI BUS ADDRESS OF RDA IN UCB 
OA 164 SDEF  UCBSLRDAM “BLKL 1 : RDA IN UCB MAP REGISTER INFO. 
OAS 165 S$DEF uCBst™ =PREALLOC “BLKL 1 ; PREALLOCATED AMAP REGISTER INFO. 
Oat 166 SDEF  UCBSL~ *BLKL 1 : INPUT QUEUE FORWARD LINK 
080 167 $DEF UcBst~INaBL *BLKL 1 : INPUT QUEUE BACKWARD LINK 
084 168 SDEF CBS ~FORKO “BLKL 6 : READY OUT INTERRUPTS FORK BLOCK 
gE 190 sore UCBSLFORER ‘Bet  ORECISTER SAVE AREAT CeOck 
Bre iF SDEF UCBSWTRISAVE <BLKW 4 > REG. SAVE AREA FOR READY-IN INTERRUPTS 
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UCBSW_ROSAVE 
UCBSL-ROLIST 
UCBSW-MRBI TMAP 
UCBSW_RDA 


UCBSK_SIZE=. 


SDEFEND UCB 


SECONDARY 1/0 PACKET (SIP) OFFSETS 


SOEFINI SIP 


1P$w_MODE 
PSWTBCNT 


$B_VBFRMASK 
7E 


bad 
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SDEFEND SIP 
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; REG. SAVE AREA FOR READY=-OUT INTS. 

USER REQUEST LIST 

MAP REGISTER BITMAP 


SPARE WORD 
RDA 
SPARE WORD 


LPA=11 MODE WORD 
SIZE OF EACH BUFFER (IN BYTES) 


; SPARE BYT 

; VALID BUFFER MASK 

; SIZE OF SIP 

; ie OF DATA STRUCTURE 


SPARE 
; SLAVE pare 
; USW SVAPTE 
; USW gyre Ade 
; USW BYTE COUNT 
; USW STARTING MAP R 


E 
USW NUMBER OF MAP R 
USW DATAPATH # 
BFR SVAPTE 
BFR BYTE Afb 
BFR BYTE COUN 
BFR STARTING MAP REG 
NUMBER OF MAP RE 
BFR DATAPATH # 
SVAPTE 
RCL Byte they 


BYTE COUN 
RCL STARTING MAP REG 
RCL NUMBER OF MAP RE 
RCL DATAPATH # 
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DECLARATIONS - DRIVER. SRCJLADRIVER.MAR; 1 
18 ; 
8 : 19 3; OWN STORAGE: 
0 
§ ; DRIVER PROLOGUE TABLE 
999 5 DPTAB END=LA END,- : END OF DRIVER 
00 6 ER=UBA,- : ADAPTER TYPE 
000 ets) NOUNLOAD,= : DRIVER IS NOT RELOADABLE 
00 8 UCBSIZE=UCBSK_SIZE,- ; UCB SIZE 
= e 
0 ; NAME=LADRIVER™ DRIVER NAME 
00 1 DPT_STORE INIT 
00 2 DPT-STORE UCB,UCBS$B_FIPL,B 8.8 : FORK IPL 
905¢ DPT“STORE UCB, UCBSL- “DEVCHAR,L.= : DEVICE CHARACTERISTICS 
003¢ 4 <DEVSM_RT : REAL TIME DEVICE 
003¢ 5 DEVSAAVL = ; ATLABLE 
003C 236 i DEVSM~SHR- + SHAREABLE 
003¢ 237 i DEVSM~ELG- + ERROR LOGGING ENABLED 
003¢ 38 iDEVSH_ IDV 3 INPUT DEVICE 
00 ¢ 39 iDEVSM"ODV> OUTPUT DEVICE 
004 40 DPT_STORE UCB, ocesB -DEVCLASS.B, ots REALTIME : DEVICE CLASS 
0047 241 DPT-STORE UCB.UCBS$B_DEVTYPE g.bTs_ CPA11 + DEVICE TYPE 
0048 4g DPT“STORE UCB,UCB$B_DIPL 4° > DEVICE IPL 
O04F 24 DPT_STORE cB UCBSL~FORKO+8 57 : READY OUT FORK BLOCK 
004F 244 <<Ba24> +<DYRSC PRKat >+FKBSK_LENGTH> ; SIZE, TYPE, AND IPL 
0056 245 DPT_STORE UCB,U KP+ : POWER REC. FORK BLOCK 
0056 46 E choslecepi Ree "PRKa16S#FKBSK _LENGTH>  ; SIZE, TYPE, AND IPL 
005D 248 per _STORE REINIT 
005D 249 DPT-STORE DDB, DDBSL_DDT,D,LASDDT ; DDT ADDRESS 
006¢ 50 DPT“STORE CRB, CRBSL_INTO+4 D.LASRDYOUT INTSV ; READY OUT INT. SERVICE 
006 $31 DPT“STORE CRB.CRBSL-INTD2+4,0, LASRDYININTSV : READY IN INT. SERVICE 
006¢ 38 DPT" STORE CRB, CRBSL~ ~INTDSVEESLS “UNITINIT,D,UNIT_INIT ; UNIT INIT 
0071 25 DPT“STORE END 
0000 $84 
9000 36 ; DRIVER DISPATCH TABLE 
9900 58 DDTAB LA, = ; DEVICE NAME 
0 6 59 TARTIO,=- + START 1/0 ENTRY POINT 
000 260 _ : UNSOLICITED INTERRUPT 
99 61 FUNCTABLE,- : FUNCTION DECISION TABLE 
6¢ CANCEL_10,- : CANCEL 1/0 
0 6 LAR GBUNP, : REGISTER DUMP ROUTINE 
00 64 <38+ > SIZE OF DIAGNOSTIC BUF 
0 65 CEMBSL. 6V_REGSAV#4+24> : SIZE OF ERROR LOGGING BUFFER 
gH is 
$3 : FUNCTION DECISION TABLE 
71 FUNCTABLE: 
re FUNCTAB ,<LOADMCODE ,STARTMPROC,- : LEGAL FUNCTIONS 
? {NITIALIZE, SETCLOCK, SETCLOCKP, - 
74 STARTDATA, STARTDATAP, = 
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- FDT ROUTINE TO LOAD MIC B28Fp=19 


+e 
FUNCTIONAL DESCRIPTION: 


ee “es 
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~-SBTTL LOAD _MICROCODE = FDT ROUTINE TO LOAD MICROCODE 


THIS ROUTINE IS_AN 
OcK 


FDOT ROUTINE WHICH PE 
Q10. IT LOCKS THE MICROCODE IMAGE IN vagy CHECK NO 
DATA TRANSFERS, MASTER CLEAR'S THE LPA-11, CLEARS THE MICROCODE VALID 
BIT, AND LOADS AND VERIFIES THE MICROCODE. AFTER A SUCCESSFUL LOAD, 
THE SHAREABLE BIT IS SET IF MULTIREQUEST MODE MICROCODE WAS LOADED 
AND CLEARED OTHERWISE. ALSO, THE MICROCODE TYPE IS SAVED AND THE 
MICROCODE VALID BIT IS SET. 
CALLING SEQUENCE: 
CALLED FROM THE FDT ROUTINE DISPATCHER IN THE Q10 SYSTEM SERVICE. 
ON COMPLETION JUMPS TO EXESFINISHIOC. 
INPUT PARAMETERS: 
R3 ADDRESS OF 1/0 PACKET 
R4 CURRENT PROCESS PCB ADDRESS 
R5 ADDRESS OF UCB 
R6 ADDRESS OF CCB 
AP ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 


OUTPUT PARAMETERS: 


RO THE LOW ORDER WORD CONTAINS A COMPLETION CODE; 
THE HIGH ORDER WORD CONTAINS THE NUMBER OF BYTES OF 
MICROCODE LOADED. | 


COMPLETION CODES: 


THESE ARE IN ADDITION TO THE ONES EXESWRITELOCK CAN RETURN: 


7 
? $S$_NORMAL NORMAL 
7 SS$“DATACHECK MICROCODE LOAD ERROR 
097 SSS"DEVACTIVE DEVICE ACTIVE 
0097 SIDE EFFECTS: 
0097 R1,R2,R4,R9,R10 ARE NOT SAVED 
$3) ce 
097 
097 LOAD_MICROCODE : 
6C 00 0097 MOVL | P1(AP),RO ; ADDRESS OF MICROCODE IMAGE 
04 A BC 9A MOVZWL P2(AP).RI > LENGTH 0 
5 dD 009 MOVa ~—s-RO, RO + PUT ADDRESS, SIZE INTO R9, R10 
00'GF 16 OOA JSB GPE XE SURITELOCK * LOCK IT DOWN 
20 AA m4 BiCw  #UCBSM_POWER,UCBSW_STS(R5) ; CLEAR POWERFAIL BIT 
AB 5$: > COME HERE TO TRY AGAIN AFTER A POWERFAIL 
59 7D on ova —s 9, RO ; RESTORE RO, R1 


; RESET MICROPROCESSOR 


H 1 
LADRIVER = LPA=11 DRIVER SEP=1 AX/VMS Macro v04-00 Page 8 
VOee O00 LOAD_MICROCODE = FDT ROUTINE TO LOAD mic aie 198 88: 18: $ DRIVER. SRCJLADRIVER.MAR; 1 ae” 
A DSBINT UCase _FIPL(RS) ; RAISE IPL TO FORK LEVEL 
0078 30 o3 38 BSBW RR 
01 B 60 BICL #LASM_MCVALID,- : CLEAR MICROCODE VALID BIT 
44 AS BA 361 UCBSL~ ~DEVDEPEND (RS) 
BC 6¢ ENBINT : LOWER IPL 
52 (08 aC 3c (O0BF 6036 MOVZWL P3(AP),R2 : GET MICRO PC TO START LOADING AT 
p C3 64 PUSHL # + COUNTER OF WORDS LOA 
51 51.—sOFF BF ¢ 65 ASHL  #=1,R1,R1 : CONVERT BYTE TO WORD COUNT 
2% OCA 66 BEQL 15$ : WORD COUNT = 0 
bee 68 108: : LOAD NEXT MICROCODE WORD 
‘ B4 ce 69 CLRW = LA_CISR(R4) ; CLEAR CONTROL IN STATUS REGISTER 
04 AG B0 ce 0 MOVW R2-LA_RDACR4) + ADDRESS TO LOA 
66 A B0 00D 71 mOVw (RO), CA_MAINT(R4) : MICROCODE WORD BEING LOADED 
64 00 8F BO 00D6 tg MOVW  #LA_CISR_M_ROMO,LA_CISR(R4) ; SELECT ADDRESS 
64 2000 8F A8 O00DB 37 BISW MLA-CISR“M-CRAM,LA-CISR(R4) : SET CRAM WRITE 
B4 OE rh CLRW = LA_CISR(R4ST ; RESET 
bor id: ; NOW a WORD WAS LOADED CORRECTLY 
04 a6 52 BO OOE 7 Mov RO_ADDRESS 
64 0400 BF B80 O00E6 378 move prersre M_ROMO,LA_ c1sr cha) SELECT CRAM AT ADDRESS 
06 a6) «6080S B1.SsC«EBSs«3:79 CMPW CROSS, LAZ MAINT (RG) COMPARE CONTENTS WITH ORIGINAL WORD 
1g 12 OOEF 380 BNEQ 208 t ERROR = NOT EQUAL 
52 © B6 OUOOF1 = 381 INCW 0 + ADD 1 TO MICRO PC 
D5 6— «60651—séF OOF 3 8¢ AOBLSS R1,(SP),10$ + GO BACK AND LOAD NEXT WORD 
OF? 84 SUCCESSFUL LOAD 
02 01 FE AO FO OOF? 385 inSv -2(RO) -ALASV_MCTYPE, wLASS _MCTYPE,- ; STORE MICROCODE TYPE 
44 AS OOFC 386 UCBSL_DEVDEPEND (RS) “IN DEVICE DEPENDENT CHARACTERISTICS 
50 01 3¢ OOFE 87 15$: BOVZML S*ass8_ NORMAL , RO 
05 11 0101 388 BRB 
010 89 
010 90 208: ERROR DURING LOAD 
50 005C BF 3¢ 010 31 HOVZUL #SS$ _DATACHECK,RO 
108 9 30S: CONVERT # OF Hors LOADED TO BYTES AND STORE IN HIGH WORD OF RO 
50 OF 11 BE FO 01 94 insv  (SP)* #15.R 
D 99 5 dF pOMERE AIL *OceURRED THEN RETRY 
06 64 AS 05 ES 133 9 BBCC © #UCBSV_POWER,UCBSW_STS(RS),40$ ; BRANCH IF POWER DIDN'T FAIL 
118 46.398 ENBINT > POWERFAIL OCCURRED, RETRY 
FF8D «31 118 399 BRW 
11E 401 40S: NO POWERFAIL - IF SUCCESSFUL LOAD THEN set MICROCODE VALID 
50 01 861 11 4 tupy nass NORMAL , RO SUCCESSFU 
04 12 01 4 BNEQ 0$ : NO 
01 88 01 3 404 BISB #LASM_MCVALID,- : YES, SET MICROCODE VALID BIT 
44 AS 1 405 UCBSL ~DEVDEPEND (RS) 
127 406 50$:  ENBINT 
00000000'GF 17 O12A 40 JMP G*EXESF INISHIOC ; RETURN TO USER 
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-SBTTL RESET = RESET MICROPROCESSOR 


+ 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE VERI ARE NO ONGOING DATA TRANSFERS, 
THE B THES CONDITIONS ARE MET, THEN 
1S PA-11. OTHERWISE 
TH ongtS ROUT INE aigt BE CALLED 


BSBW RESET 
INPUT PARAMETERS: 
R5 ADDRESS OF UCB 
IMPLICIT INPUTS: 
IPL IS AT FORK LEVEL ON ENTRY 
OUTPUT PARAMETERS: 
R4 UNIBUS ADDRESS OF FIRST LPA-11 REGISTER 
COMPLETION CODES: 
SS$_DEVACTIVE 


AAAI AAAI AAI AAAI AINA AIA AAA. AANA 


OOCCCOCOCOCOCOS COCO OCCOCOCOCOCOOOOOOO OOOO OOOOOOoOo 


vICc . ACTI OT RETURNED TO CALLER = GOES 
RECTLY TO 


E VE (N 
I EXESF INISHIOC) 


D 
Dd 


SEPP PPP PEPE PPP PPP PPP PPP EPL EE EE HK 


SF FWANAN AN ANIGPOPPOPINININININN PS OO Os oe Oe oe es "OO 


=O ODNAU EWN $$ O OD NOAU EWN OO OONOU SU" OO 


SIDE EFFECTS: 


a a ee te td a ba a a a 2 a ts ts 4s bd 3s 2 4) a es a 2s 2 — 4 4 2 9 a 


OQOQOCOGOCOCCOCOCOCOCOOCCOCOSSCOOCOCOCOOCOOOOCOOOOOOCOOGOOOOOOoOo 


44 
44 R2 IS NOT PRESERVED 
tes 
446 RESET 
25 64 AS) «08~—s«éEO 44 BBS #UCBSV_BSY,UCBSW_STS(R5),20$ | ; MAKE SURE UCB IS NOT BUSY 
1 2 44 : MAKE SURE THERE ARE NO ONGOING DATA TRANSFERS 
53 DS 01 5 450 ELRL 
0104 she DS ? 491 108: iste CBSL_RQLIST(RS)CR2)_ ; A REQUEST HERE? 
5 52 08 5 13 38 AOBLSS $B R2,108 : TRY NEXT SLOT 
142 455 GET POINTER 10 ant ICE REGISTERS 
54 2405 00 14 436 Rov UCBEL_CR ; GET POINTER TO CRB 
54 2C B46 00 146 438 MOVL jee in INTDSVECSL_ IDB(R4),R4 ; GET PTR TO 1ST DEVICE REGISTER 
146A 460 RAISE IPL TO HARDWARE DEVICE LEVEL AND DO A MASTER CLEAR 
146A 461 bseint UCB$B_DIPL 
64 4000 8F 860 13) re a #LA_CTSR_ fi RESET,LA_CISR(R4) ; DO MASTER CLEAR 
05 133 464 RSB 
15a 465 
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~SBTTL STARTMP_FDT START MICROPROCESSOR FDT ROUTINE 


+e 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS THE FDT 5M FOR THE START MICROPROCESSOR 
Q10. CHECKS FOR NO ACTIVE USERS, MASTER CLEARS THE LPA-11, 
AND THEN QUEUES THE PACKET ONTO THE UCB’S INPUT Q . 


CALLING SEQUENCE: 


CALLED BY THE 


FOT ROU SPATCHER IN THE Q10 SYSTEM SERVICE. 
ON COMPLETION BRANCHE E_PKT 


WN 9 BOONOU SW" 0 OONOU EWN" 


-11 
MP _F 
1 
1 
1 3 
16 3 
16 3 
16 ; 
16 ; 
16 3 
16 : 
16 3 
16 ; 
192 3 
16 3 P 
b182 3 
182 : INPUT PARAMETERS: 
b1e8 3 R3 ADDRESS OF 1/0 PACKET 
B83 3 R5 ADDRESS OF UCB 
3 
0165 : OUTPUT PARAMETERS: 
0165 : 
8182 3 NONE 
016s $33 3; COMPLETION CODES: 
3192 rhs $ SS$_DEVACTIVE DEVICE ACTIVE (GETS RETURNED DIRECTLY TO EXESFINISHIOC) 
0165 497 ; SIDE EFFECTS: 
| 165 498; 
165 499 ; R2,R4 ARE NOT PRESERVED 
| 165 289 | Naa 
8182 501 
| 165 208 STARTMP_FDT: 
b1g8 SETIPL UCBSB_FIPL(RS) ; RAISE IPL TO FORK LEVEL 
C5 10 169 504 BSBB RESET ; RESET MICROPROCESSOR 
O1AC 31 0168 505 QUE _PKT : INITIATE FUNCTION 


rr i 


oa 
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reat INIT_FDT = INITIALIZE FDT ROUTINE "er8 P-19B4 88: 1g $ YORIVER. SRC) SLADRIVER.MAR: 1 . 8) 
166 0 .SBTTL INIT_FDT = INITIALIZE FDT ROUTINE 
18f 10 ;+¢ 
16E : FUNCTIONAL DESCRIPTION: 
18 18 : THIS ROUTINE IS THE FDT ROUT NE FOR THE INITIALIZE Q10. 
166 514; IT CHECKS FOR SEVERA : ERRORS, LOCKS THE INITIALIZE TABLE INTO 
16— 515: MEMORY, AND FORMATS THE CONFIGURATION BITS WHICH GET STORED 
be 18 g IN THE DEVICE CHARACTERI ISTICS IF THE INITIALIZE IS SUCCESSFUL. 
ee 8 3; CALLING SEQUENCE: 
18 0 : CALLED FROM THE FDT ROUTINE DISPATCHER IN THE QIO SYSTEM SERVICE. 
fe § ; INPUT PARAMETERS: 
16 4: R3 ADDRESS OF 1/0 PACKET 
016E 5: RG CURRENT PROCESS PCB ADDRESS 
OiGE 6 : RS ADDRESS OF UCB 
16— 527; R6 ADDRESS OF CCB 
016 § § 3 AP ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 
016E ; 0 : OUTPUT PARAMETERS: 
016€ 1: 
016E 3 : : NONE 
the: ; 
O16 , : COMPLETION CODES: 
016 $ ; $S$_IVMODE INVALID MODE 
016€ ; SS$-IVBUFLEN INVALID BUFFER LENGTH 
O16E 38 ; SS$"BUFNOTALIGN BUFFER NOT ALIGNED CORRECTLY 
O16 3 ; (THESE ERRORS GET RETURNED DIRECTLY TO EXESFINISHIOC) 
16— 541 
16E 4g 
16€ 563 INIT_FDT: 
52. 0324 BF 3 16 ry MOVZWL #SS$_BUFNOTALIGN,R2 : ASSUME ALIGNMENT ERR 
50 : 06 1 45 MOVL pata AP) ,RO : GET ADDRESS OF INITIALIZE TABLE 
3¢ E 1% 46 BLBS : VERIFY IT'S WORD ALIGNED 
59 5 0 017 4 MOVL : SAVE FOR LATER USE 
52. 034c BF 3c «(017C 48 MOVZWL i waren. R2 : ASSUME INVALID LENGTH ERROR 
51 O04 AC 3C 0181 54 MOVZWL : GET LENGTH 
00000116 8F 51 D1 0185 550 CMPL : IS IT THE RIGHT LENGTH? 
27 le 18C 1 BNEG : NO = ERROR 
900 Td a | 18 ; JSB ete ye tver neve > YES, LOCK IT DOWN 
52. 0354 ar ; 194 MOVZWL sss + ASSUME INVALID D MODE ERRO 
69 07 199 554 BI1TB ; MAKE SURE MODE = INIT IAC IZE 
- 4 19¢ 5 BNEQ 108. : IT DOESN'T = ERROR 
19 5 ; BUILD CONFIGURATION BITS FOR DEVICE CHARACTERISTICS 
51 04 019 g tLRL oR ; LOOP COUNTER AND BIT POSITION 
52 2 A941 BO OIA 59 5$ MOVW DEVADDR(R9)CR1],R2 : GET DEVICE ADDRESS OF NEXT DEVICE 
50 (01 ae 1A 60 INSV : STORE LOW git OF ADDRESS IN RO 
F , oe 1AA 561 AOBLSS #10,R1,5 : DO NEXT DEVICE 
38 A3 Q , 1A 6¢ MCOML RO, [RPSL_MEDIA(R3) > COMPLEMENT BITS AND SAVE 
016 18 63 BRw qué _PKT > QUEUE PACKET TO DRIVER 


ae 
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LADRIVER = LPA=11 DRIVER 16-SEP-1984 00:1 AX/VMS Macro V04-00 Page 1 
viraatts INIT_FDT = INITIALIZE FDOT ROUTINE g: Hie 1982 88 18: § DRIVER. SRCJLADRIVER.MAR; 1 ad ta) 
18 65 108: : ERROR = EITHER INCORRECT LENGTH, MODE NOT EQUAL TO INIT, 
18 66 OR NOT WORD ALIGNED. 
30 52 09 18 7 a OVL R2,RO : COMPLETION CODE 
00000000°GF 17 018 68 JMP G*EXESF INISHIOC 


LADRIVER = LPA=11 DRIVER Ig- SEP-1984 4 00: 12: 56 VAX/VMS Ma 0 v04-00 Page 14 
v04-000 SETCLOCK_FDT = SET CLOCK FDT ROUTINE SEP=1984 DRIVER.SR SLADRIVER.MAR: 1 (9) 
1BE 70 .SBTTL SETCLOCK_FDT = SET CLOCK FDT ROUTINE 
Bh oe 
1B rs : FUNCTIONAL DESCRIPTION: 
1BE 6045575: THIS ROUTINE IS THE FDT ROUTINE FOR THE SET CLOCK QIO. 
1BE id: : IT COPIES THE FUNCTION DEPENDENT PARAMETERS INTO THE 1/0 
1BE 0 5577:: ACKET AND THEN STORES THE CLOCK A RATE AND PRESET IN THE 
1BE 28 ; SPARE CHARACTERISTICS. THIS WILL GET STORED IN THE DEVICE 
18 19 : CHARACTERISTICS IF THE Q10 IS SUCCESSFUL. 
1B 1 ; CALLING SEQUENCE: 
1BE ; CALLED BY THE FDOT ROUTINE DISPATCHER IN THE QIO SYSTEM SERVICE. 
O1BE 2 5 : INPUT PARAMETERS: 
O1BE e? : R3 ADDRESS OF I/O PACKET 
1BE 8: R5 UCB A 
O1BE 89 : AP ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 
01BE 591 : OUTPUT PARAMETERS: 
01BE 3¢ ; 
O1BE 593: NONE 
ae 
O1BE 96 SETCLOCK_FDT: 
1BE 597 > COPY P2 = P4 INTO 1/0 PACKET 
38 A304 AC. oiBO O18 598 movw P2(Ap)  1RPSL MEDIA(R3) ; MODE WORD 
5A As 0B AC BO O01C3 599 MOVW P3(AP)-IRPSL MEDIA‘2(R3) : CLOCK STATUS 
CAs OC AC BO 01CB 600 MOV Ba CAP) URPSLS MEDIA#4(R3) ; CLOCK PRESET 
38 As -03)—CitséiSséFCOD O1cD 601 INSV #1,#0,#3, 1RPSL_MEDIA(R3) : SET MODE TO START CLOCK 
01446 31 0103 $08 BRW QUE_PKT : QUEUE PACKET TO DRIVER 


PO 
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STARTDATA_FDT = START DATA FDT ROUTINE -SEP-1984 DRIVER. SRCILADRIVER.MAR: 1 (10) 
106 605 .SBTTL STARTDATA_FDT = START DATA FDT ROUTINE 
ibe ¢ g 24+ 
106 6 8 t FUNCTIONAL DESCRIPTION: 
0106 610 : THIS ROUTINE IS THE FDT ROUTINE FOR THE START DATA Q10. IT 
106 611: ALLOCATES A SECONDARY I/O PACKET (SIP), LOCKS THE USW, BUFFERS, 
0106 18 ; AND RCL INTO EMORY AND LINKS THE SIP fO THE IRP. 
106 614 CALLING SEQUENCE: 
106 616 ; CALLED FROM THE FDT ROUTINE DISPATCHER IN THE QIO SYSTEM SERVICE 
0106 618 + INPUT PARAMETERS: 
0106 620 : R3 ADDRESS OF 1/0 PACKET 
0106 621 : RG CURRENT PROCESS PCB ADDRESS 
1066 é : RS ADDRESS OF UCB 
0106 6 33 R6 ADDRESS OF CCB 
01D6 625 : OUTPUT PARAMETERS: 
0106 +6 § 3 
Bie 658 | ie 
0106 639 > COMPLETION CODES: 
0106 «631: SS$_INSFMEM INSUFFICIENT MEMEORY 
0106 O36 3 $S$_ =BUFNOTALIGN gt ERROR 
0106 «633: SS$"IVBUFLEN INVALID BUFFER LENGTH 
0106 634 : (THESE ERRORS GET RETURNED DIRECTLY TO EXESFINISHIOC) 
0106 636 : SIDE EFFECTS: 
01D6 638 : R1,R2,R7,R8 ARE NOT PRESERVED 
Bieta 
Sipe re STARTDATALFDT: — 
0106 $8 s "FIRST CHECK THAT ARGUMENT BLOCK POINTED TO BY P1 IS THE CORRECT 
106 644 LENGTH AND ACCESSIBLE 
SA b 106 645 it RL ; MEANS NO SIP IN CASE OF ERROR 
51 04 AC 3C O1D8 646 MOVZWL P2(AP),R1 : GET L 
28 31 Dt 1p¢ 647 CHPL Ri .#40 : Is 17 CORRECT LENGTH? 
0063 = 31 pipe ots BRW LENGTHERR : NO = ER 
00000900" SF 0° gies $39 7” meee GPE AERA TECHR : Uae ex For READ ACCESS 
59 50 00 OiED 63¢ MOVL 3 " RO WILL STEP THRU ARGUMENT BLOCK 
170 654 NOW ALLOCATE SECONDARY 1/0 PACKET (S1P) 
51 00C4 . 3¢ iF 639 hovzu. § ’ RPSC_LENGTH,R1 LEN NOTH 
00009900" F 16 OIF? 636 JSB G°EXESAL ONONPAGED : te Ae {1 
5 ; 08 1FD 638 MOVL  (SP)4,R > RESTORE R 
08 65 BLBS RO, 10 : SUCCESSFUL 
50 0124 BF ic 203 660 MOVZWL #SS$_INSFMEM,RO + ERRO 
00c3. 31 661 Ru ABORT 


C 2 ' 


| LADRIVER = LPA=11 DRIVER 16-SEP-1984 AX/VMS 0 V04-00 Page 16 | 
ait STARTDATA_FDT = START DATA FDT ROUTINE -SEP=1984 Bb:18 38 DRIVER.S SLADRIVER.MAR: 1 9 110) 
0208 663 
B 663 10$: CLEAR PACKET AND PUT_IN Size 
F 88 B 664 bus R1,R2,R3,R4,R5> 
62 51 00 62 00 2¢ 020d 665 moves #0 CR §,#6,R1, (R2) : CLEAR PACKET 
F BA 021 666 POP #°R<RO,R1,RZ,R3,R4RS> 
08 A2 gor F BO 0215 66 MOVW W#IRPSC_LENGTH, IRP$W_SIZE(R2) 
A 52. 00 18 668 MOVL _R2,R1 : R10 WILL POINT TO SIP 
0 1—E 670 : START BUILDING SIP FROM ARGUMENT BLOCK 
6A 89 80 1€ 671 Movw = (ROD +, $ P$wW_MODE (R10) COPY MODE wo 
mM oe 2° Re De 1 ore NSV #2 40.8 SIPSu _MODE(R10); RAKE SURE FUNCTION = START DATA 
5B 89 3 § 67 MOVZWL (R9)+-R1 : GET VALID BUFFER MASK 
07 AA 5B 90 674 OV Ri sipse VBFRMASK(R10) ; STORE IN SIP 
SB OFFF8 BF OAA «(0200675 BICW “xFFFBLRTI : MASK EVERYTHING BUT # OF BUFFERS 
5B O6 0 : 676 INCL R11 + ADD 1 TO GET TRUE # OF BUFFERS 
0 3 678 208: : CHECK AND LOCK USW 
50 89 dO 0 34 679 MOVL  —- (R9) +, RO : POINTER TO USW 
59 50 €8 0237 680 BLBS RO,45$ : BRANCH IF NOT WORD ALIGNED (ERROR) 
51 02 DO O23A 681 MOVL # Ri ; LENGTH aot USW 
0094 30 023p 68¢ BSBW READ CHECK AND LOCK FOR WRITE ACCESS 
1C AA 2C a3 7D 0 40 683 MOVQ TRPSL OSVAPTE(R3) , SIPSL _usw. RVAPTCRIO) ; SAVE SVAPTE, BOFF, BCNT 
0245 685 ; CHECK DATA BUFFER AREA FOR PROPER ALIGNMENT AND SIZE RESTRICTIONS 
51 69 3C 02465 686 MOVZWL (R9),R1 ; LENGTH OF BUFFER A 
59 04 (CO 0248 687 ADDL #4,R 
50 89 00 0248 688 MOVL (R9)+,RO : POINTER TO BUFFER AREA 
50 03 D3 O24E 689 BITL #3,R : MAKE SURE ITS, LONGWORD ALIGNED 
6D 12 0251 690 BNEQ ALIGNERR : IT'S NOT = ERR 
52 4 OO 33 691 CLRL oR 
58 52 51 58 8 0255 69 EDIV Rit R1,R2,R8 ; GET SIZE OF EACH DATA BUFFER 
6B 1 025A 69 BEQL NGTHERR + BUFFER LENGTH CAN'T BE ZERO! 
58 43905 «(025c «| 694 TSTL ; MAKE SURE REMAINDER IS ZERO 
67:12 O25 695 BNEQ  LENGTHERR : IT'S NOT = ERROR! 
64 52 E88 0 69 696 BLBS = R2, OTHE TRERR : BUFFER SIZE MUST BE A MULTIPLE 
0263 697 : OF 2 IN MULTIREQUEST MODE. 
05 6A 03 £0 0263 698 BBS #3,SIP$W_MODE(R10),27$ : BR. IF THIS IS AM. R, MODE REQUEST 
03 03 0267 699 BITL #3.R2 : BUFFER SIZE MUST BE A MULTIPLE 
026A 700 ; OF 4 IN DEDICATED MODE. 
5B 212 «026A = 701 BNEQ  LENGTHERR ; IT'S NOT = ERROR! 
02 aA 52 «BO 0 $¢ 108 27$:  MOVW R2,SIP$W_BCNT(R10) : STORE BUFFER SIZE IN SIP 
0270 704 : NOW CHECK AND LOCK BUFFERS FOR READ OR WRITE ACCESS DEPENDING 
20 £05 ON TRANSFER DIRECTION 
6A 95 0270 706 tsTB P$W_MODE (R10) ; TEST FOR TRANSFER DIRECTION 
04 19 0272 707 BLSS 
SE 10 0274 708 BSBB  —s- READLOCK : FROM LPA TO MEMORY 
02. «11 26 709 BRB 40$ 
62 10 0278 710 30$:  ##BSBB  WRITELOCK ROM MEMORY TO L 
28 AA «= 2C AS” 7D vA a1] 40$: MOV  IRPSL_SVAPTE(R3),SIPSL pir SVAPT(R10) ; shve SVAPTE, BOFF, BCNT 
7F 18 REPEAT FOR RCL 
51 9 %* 7 718 oviwL (R9).R1 : LENGTH OF RCL 
ES Gs. é 715 ADDL #4 aoe 
50 89 COD 216 MOVL  (R9)4,R : ADDRESS OF RCL 
6A 0300 8F 8B 8B 71 BITW #°x306" o psu _MODE(R10) : IS RCL SPECIFIED? 
1A D 718 BNEQ 50% : NO 
| 
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yaa tt STARTDATA_FDT = START DATA FDT ROUTINE eats 318: $ YORIVER. SR RCILADRIVER.MAR; 1 9 10) 
1 8B gf 719 TSTW ; YES, MAKE SURE LENGTH IS NOT ZERO 
eS 7 } 720 BEQL LENGTH HERR : IT IS ZERO = ERROR 
ZA 0 € 93 721 45$: = BLBS »ALIGNERR : RCL MUST BE WORD ALIGNED 
— 51 E 9% #7 : BLBS ;LENGTHERR t AND A MULTIPLE OF IN LENGTH 
57 30 D 0299 7 MOV RO’ R 3 SAVE RO Ry IN R RB 
5 10 029C 7264 BSBB ss WRI TELOCK ECK ACC CESS AND L 
34 AA 2C AS 7D OO9E 725 MOVQ ~—IRPS SVAPTE(R3) SIPS reve SVAPTCR? ) SAVE OVARIES BCNT, BOFF 
1E FF A748 «207i a f § BBC #7,-1TR7)CRBJ,LENGTHERR ; MAKE SURE END OF RCL HAS HIGH BIT SET 
OC AA 89 7D O2A9 728 50$: MOVQ (R9)+,SIPSL_SLVDATA(R10)_ ; COPY SLAVE DATA 
14 AA 89 «7D O2AD = 729 MOV = (R9)+, SIPSL~SLVDATA+8(R10) 
B1 730 ASSUME IRPSL_OVR_AST EQ IRP$L_BFR_AST+4 
3c As O8 aC 7D 0281 731 OVQ  P3(APT, IRPSL_BFR_AST(R3) COPY AST ADDRESSES 
2C AS) = 7C «(02B6 7 : CLRQ —IRPSL_S§VAPTETR3) ; CLEAR SVA pre BCNT, AND BOFF IN IRP 
48 A3 OSA 9 0289 7 MOVL R10, IRP$L_SIP(R3) : LINK SIP TO 
005A «310 8p i BRW QUE_PKT : QUEUE PACKET TO DRIVER 
et 
6 C0 13 ; ERRORS COME HERE 
b3¢0 739 ALIGNERR: ; ALIGNMENT ERROR 
- 50 0324 8F 3c 0 CO 740 MOVZWL #SS$_BUFNOTALIGN,RO 
0S 11 02¢5 741 RB 60$ 
02¢7 rag 
02C7 743 LENGTHERR: ; INVALID LENGTH ERROR 
50 034C BF 3C 0207 744 MOVZWL #SS$_IVBUFLEN,RO 
17, 10 6 eC 745 60$: BSBB CLEANUP ; UNLOCK PAGES, DEALLOCATE SIP 
00000000'GF 17 $sce 747 ABORT: JMP G*EXESF INISHIOC 
0204 748 
0204 749 
0204 750 ; LOCAL SUBROUTINES 
0204 751 
0204 138 READLOCK: 
00000000'GF 16 0204 75 JSB G*EXESREADLOCKR : LOCK PAGES FOR WRITE ACCESS 
06 11 O2DA 754 BRB 70$ 
O20c 755 
02D0C 756 WRITELOCK: 
00000000'GF 16 O2DC 757 J$B G*EXESWRITELOCKR : LOCK PAGES FOR READ ACCESS 
OF 50 EB 6 Eg 138 70$:  BLBS  R0,90$ : BRANCH IF EVERYTHING IS OK 
9 ED 760 ; ERROR OR HAVE TO FAULT PAGES IN. FALL THROUGH TO ... 
E576 
ER 66 CLEANUP: ; UNLOCK PAGES AND DEALLOCATE SIP 
3F 88 6 E5 764 pusHR #°8 4,R5> 
2c AS) «7C «(O2E?)—s 765 CLR IRPSL SvaPTE (R35 : CLEAR SVAPTE, BCNT, AND BOFF IN IRP 
55. SA o9 EA 766 MOVL R10,R5 ; ADDRESS OF SIP 
03 (1 ED 767 BEQL 808 : NO SIP = NOTHING TO UNLOCK 
028A 30 O2EF 768 BSBW «UNL ; UNLOCK PAGES, DEALLOCATE SIP 
F BA F2 769 808: POPR Se ehO RT .R2.R3.R4.R5> 
5 02F4 770 90S: RSB ; RETURN TO CALLER OR COROUTINE 
O2F5 = 771 .DSABL LSB 
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UE STOP FDOT ROUTINE g7 tt 213 4 90:12:39 UORIVER. SREILADRIVER MAR; 1 i (11) 


-SBTTL QSTOP_FDT = QUEUE STOP FDT ROUTINE 


oe 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS AN FDOT ROUTINE WHICH PERFORMS THE QUEUE STOP 
Q10. NOTE THAT THIS Q10 DOES NOT ITSELF STOP A DATA TRANSFER; 
RATHER IT QUEUES THE ORIGINAL START DATA 1/0 PACKET BACK TO THE 
AS A STOP, THEREFORE, THIS Q10 COMPLETES AS SOON AS 

THE STOP IS QUEUED. THE ORIGINAL START DATA COMPLETES AFTER THE 
DATA TRANSFER HAS ACTUALLY STOPPED. 

CALLING SEQUENCE: 
CALLED FROM THE FDOT ROUTINE DISPATCHER IN THE Q10 SYSTEM SERVICE. 
ON COMPLETION JUMPS TO EXESFINISHIOC. 

INPUT PARAMETERS: 
R3 ADDRESS OF I/0 PACKET 
R4 CURRENT PROCESS PCB ADDRESS 
R5 ADDRESS OF UC 
AP ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 

OUTPUT PARAMETERS: 
RO COMPLETION CODE 


; COMPLETION CODES: 


SS$_NORMAL NORMAL 
SS$"BADPARAM NO SUCH REQUEST 


; SIDE EFFECTS: 


R2 IS NOT PRESERVED 


GET REQUEST NUMBER 

CLEAR ALL BUT LOW THREE BITS 

ASSUME ERROR 

RAISE TO FORK IPL 

As ag | ° REQUEST IN THIS SLOT? 

YES = QUEVE A STOP WITH ABORT STATUS 


RETURN NORMAL STATUS 


VZBL P2(AP),R2 
B  #*xFB,R 
MOVZ2WL #SS$_BADPARAM,RO 


SETIPL UCBSB_FIPL(RS 
L ~ UCBSL ROL IST (RS) CR2] 


MOVZ2WL #SS$_ABORT,RO 
W QUEUE STOP REQ 
MOVZWL $*#SSS$_NORAAL RO 


10$: JMP G*EXESFINISHIOC : FINISH 1/0 


| 
| 
| 
| 
| 
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yaa tt QUE_PKT = QUEUE 1/0 PACKET TO DRIVER g: SEP=1984 1 88: 1g 8 DRIVER. SREIL LADRIVER.MAR; 1 9 42) 
1A 3 .SBTTL QUE_PKT = QUEUE I/0 PACKET TO DRIVER 
1A 858 se 
1A : ; FUNCTIONAL DESCRIPTION: 
1A 8 : THIS ROUTINE 1S JUMPED TO FROM AN FDT ROUTINE TO QUEUE AN 
1A ; 1/0 PACKET TO THE DRIVER. IF THE DRIVER IS NOT Busy HEN 
1A 0; THE DRIVER IS CALLED IMMEDIATELY. THIS ROUTINE | SIMICAR TO 
1A 1; THE EXEC'S, EXCEPT IT USES A DIFFERENT QUEUE. 
1A 5 ; CALLING SEQUENCE 
1A 5: JUMPED TO FROM AN FDT ROUTINE 
0 1A $ + INPUT PARAMETERS: 
6 1A 3 : R3 ADDRESS OF 1/0 PACKET 
O31A 40 ; R5 ADDRESS OF UCB 
O31A 4g : OUTPUT PARAMETERS: 
O31A 43; 
O31A 44; NONE 
an oe 
oaiA 23 QUE _PKT: 
O31, 848 DSBINT UCB$B_FIPL(RS) ; RAISE IPL TO FORK LEVEL 
08 64 AS 08 €2 0321 849 BBSS  #UCB$0_BSY,UCBSW_ STS(RS), 108 SET BUSY AND SEE IF IT WAS SET 
00000000'GF 16 0326 850 JSB 6 [OCSTNITIATE 1 BUSY, INITIATE FUNCTION 
ee 3 ¢ 31 are 208 
52. OOAC CS DE 0 : 24 10$:  MOVAL UCBSL_INOFL(RS),R2 : GET ADDRESS OF 1/0 QUEUE LISTHEAD 
00000000'GF 16 03 3 854 JSB G*EXESINSERTIRP : INSERT IN QUEUE BY PRIORITY 
o339 856 20$:  ENBINT : LOWER IPL 
00000000'GF 17 033C 857 JMP G*EXESQ1ORE TURN : RETURN FROM Q10 
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DRIVER ENTRY POINT met $b: 15538 UORIVER. SRCILADRIVER. MAR; 1 . (3) 
.SBTTL STARTIO = MAIN DRIVER ENTRY POINT 
p++ 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS THE MAIN DRIVER ENTRY POINT. IT STARTS THE I/O 
; WAITS FOR AN INTERRUPT, COMPLETES THE 1/0, AND STARTS THE NEXT ONE. 
: CALLING SEQUENCE: 
: CALLED THROUGH THE DRIVER DISPATCH TABLE 
: INPUT PARAMETERS: 
; R3 ADDRESS OF 1/0 PACKET 
: R5 ADDRESS OF UCB 
: OUTPUT PARAMETERS: 
; NONE 
.ENABL LSB 
STARTIO: 
ASSUME IRPSS_FCODE EQ 6 
BICB3 #*XCOTIRPSW_FUNC(R3),R2 ; GET FUNCTION CODE 
: DISPATCH 10 APPROPRIATE ROUTINE 
{occ R2,4 1OF CTBLN IOFCTBL =; LOCATE FUNCTION CODE IN TABLE 
MOVL  UCBSL_CRB(RSS,R GET POINTER TO CRB IN R1 
CASE TYPE=8. SRC=RO, DISPLIST=<- 
STRT_N NX7_REQ,- ; INVALID FUNCTION 
START _DATA,= > START DATA (PHYSICAL) 
START "DATA. = : START 
SET_CCOCK,= 3 SET CLOCK (PHYSICAL) 
SET" CLOCK. + SET CLO 
INITIALIZE, = F INITIALIZE 
; FALL THROUGH TO ... 
: START MICROPROCESSOR 
; ; NOTE: THIS Q10 COMES HERE DIRECTLY FROM THE FDT ROUTINE. 
: THEREFORE R4 POINTS TO LPA-1 
CHECK FOR VALID MICROFOBE MBEF ORE STARTING MICROPROCESSOR 
AsSun UME LASM_MCVALID EQ 1 
SBINT #31 ~ ; DON'T ALLOW INTERRUPTS (LIKE PWRFAIL) 
BBS UCBSL_DEVDEPEND(RS),10% : BRANCH IF MICROCODE IS VALID 
BRW MCNVACID > BRANCH IF MICROCODE IS NOT VALID 


10$: 


ACTUALLY START MICROPROCESSOR 


hove #LA_CISR_M_RUN!LA_CISR_M_ENA,- ; SET RUN AND ENABLE 


H 2 
LADRIVER = LPA=11 DRIVER 16-SEP-1986 00:1 AX/VMS Macro V04-00 p 1 
rivet STARTIO = MAIN DRIVER ENTRY POINT Boeri ahs BoT1e:88 PANIVES Sacro Ot 0O ae. 1 age 44) 
64 LA_CISR(R4) : ARBITRATION BITS 
ENBINT : ALLOW INTERRUPTS 


WAIT FOR AT LEAST 1 MICROSECOND D BEFORE ENABLING INTERRUPTS 
TIMEDWALT TIME=# § WAIT L 


DSBINT #31 CHECK FOR hod MICROCODE AGAIN 
BLBC RANCH IF ¢ 


QS 
oO VNNOWOWOO 


55 44 a5 €9 UCBSL_DEVDEPEND (RS) .MCNVALI ID; BRA MICROCODE NOT VALID 
64 0040 af Ag BISW #LA_CTSR_M_IE,LA_CISR(R4) ENABL READY IN INTERRUPT 
02 A6 0040 8F A BISW  #LA-COSR“M“IE.LA-COSR(R4) : ENABLE READY OUT INTERRUPTS 
59 (11 8&8 WAIT ; WAIT FOR INTERRUPT 


SET CLOCK 


F FWA IAAI IPPON | SS OZ 


OOO NOA UNE WN $$ O ODNG NEW OOOO 
Sete 


DOOOOOOOOOOOOOOOOOOOOOOOONO —< 


DODO ODO ODD OD OOO SS > odd Sb + OOO TI 
mmmmeas 


E SET_CLOCK: 
0164 (5 38 A3 7D E MOVQ  IRPSL_MEDIA(R3),UCBSW_RDA(RS) ; BUILD RDA IN UCB 
OE 11 4 BRB RDA_IN_UCB 
6 : 
6 ; START DATA 
6 START_DATA: 
00c1 30 6 BSBW SDATA ; PREPARE FOR START DATA 
7050 €9 0389 BLBC _—-RO, DONE + ERROR 
11 O03aC BRB RDA_IN_UCB 
O3BE 94 
O3BE 943; 
O3BE 944 : sToP 
O3BE 945 : 
O3BE 946 STOP: 
O3BE 94 ; RDA IS IN SIP (FROM WHEN REQUEST WAS STARTED) 
0 E 9% ASSUME SIP$W_MODE EQ 0 
0164 (5 4883 B80 BE 349 MOVW  @IRPSC_SIP(R3),UCBSW_RDA(RS) ; COPY RDA INTO UCB 
6 C4 951 RDA_IN_UCB: 
03¢4 93¢ ; SET CLOCK, S START DATA, AND STOP COME HERE. THE RDA IS IN UCBSW_RDA. 
0 (6 95 : GET 18 BIT UNIBUS ADDRESS OF 
52 OOAO CS DO 03C4 954 hove UCBS$L_RDABA(RS) 
13 «11 «#03¢9 «(955 BRB COM mROR 
(B 996 
cB «957; 
CB 958 : INITIALIZE 
CB «959: 
CB 960 INITIALIZE: 
CB (961 ; INITIALIZE I$ THE ONLY FUNCTION WHERE THE RDA IS IN THE PROCESS 
CB 96¢ : ADDRESS SPACE. MOVE RDA DESCRIPTOR FROM IRP TO UCB. 
78 AS) «2C AS) 7D ¢ 963 MOV ~—sIRPSL_SVAPTE(R3) .UCBSL_SVAPTE(R5) 
D0 6965 SET UP MAP REGISTERS 
37 Al «94 «(0300s «96 tLRB | CRBSL INTD+VECSB_ DATAPATH(RI) USE DIRECT DATAPATH 
910 0 0303 9% BSBW SETRAPREG ue§t AND LOAD aueA MAP REGISTERS 
; 50. «ES D6 96 BLBC NE ALLOCATION FAILUR 
4 Ai 00 0309 9 MOVL CROs INTD+VECSW naprcccht tet SAV E pALLOcATED MAP REGISTER 
40 a3 DC 970 TRPSLRDAMAPREG(R3) : INFO.’ IN IRP 
DE 972 COMMON: ; COMMON FUNCTION PROCESSING. INITIALIZE, SET CLOCK, START 


7] 


<r 


-— 


| 
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vat STARTIO = MAIN DRIVER ENTRY POINT g- Hitt? 90:12:38 YORIVER.SREICADRIVER.MAR: 1 . (4 
DE 973 ; DATA, AND STOP ALL COME HERE. R2 CONTAINS 18 BIT UNIBUS ADDRESS 
SB Ballas 
DE 976 GET POINTER 10, LPA-11 DEVICE REGISTERS 
DE 97 ASSUME DBS. Cs R EQ 0 
54 2¢ 81 00 D 378 MOVL  @CRBSC_INTD+VECSL_IDB(R1),R4 =; GET PTR TO 1ST DEVICE REGISTER 
E2 980 BUILD WORD TQ LOAD INTO LA_CISR IN R1 
51 52 £2 8F 78 O362 981 ASHL #-14,R JR1 : PUT HIGH TWO BITS INTO POSITION IN R1 
93 AA O3E7 9 4 BICw «=_- #3, RI : CLEAR LOW TWO BITS 
1 86 EA ; INCW RY : SET GO BIT 
EC 5 : CHECK FOR VALID MICROCODE, LOAD LPA-11 REGISTERS, AND THEN WAIT 
eC 9 6 FOR INTERRUPT (THIS ALSO CH CKS FOR POWER FAIL) 
3 9 icone T #31 DON'T ALLOW INTERRUPTS (LIKE PWRFAIL) 
0A 44 85 EB Fe ? 8 BLBS  UCBSL_DEVDEPEND(RS) LOAD’ DON RANCH IF MICROCODE 1S VALID 
F6 990 MCNVALID: ; MICROCODE IS NOT VALID = COMPLETE REQUEST WITH ERROR 
Fg 991 ENBINT : ALLOW INTERRUPTS 
50 035 BF 3C O3F9 99 MOVZWL #SS$_MCNOTVALID,RO + ERROR CODE 
2c. Ore 993 BRB DONE : COMPLETE REQUEST 
9400 995 LOAD: ; LOAD LPA~1t REGISTERS 
0406 52 B80 0400 99 MOVW R2,LA_RDA(R4) : LOAD UNIBUS ADDRESS OF RDA 
51a 0404 997 BISw2 RI bh “CISR(R4) : 60! 
hit 999 WAIT: ; WAIT FOR INTERR PT 
0407 1000 WFIKPCH TIMEOUT,# ; WAIT FOR READY IN INTERRUPT. 
411 1001 ; READY OUT INTERRUPTS DON'T COME HERE. 
411 1 0¢ : (GO TO ‘TIMEOUT’ ON TIMEOUT OR 
411 190 + POWERFAIL) 
11 1004 1OF ORK + FORK TO DRIVER LEVEL 
53 58 AS 09 417 1005 MOVL UCBSL_IRP(RS),R3 : GET ADDRESS OF LORRENT 1/0 PACKET 
m. ¥ 418 1 06 BEQL STRT_AXT_REQ 3 THERE IS NONE - ALAS AOY HANDLED 
58 AS) D4 «(0410 190 CLRL BSC_IRP(RS) : CLEAR CURRENT 1/0 PACKET 
23.—s-'10 r : 38 BSBB SETCHAR ; SET CHARACTERISTICS. if APPROPRIATE 
422 1010 ; copy LPA REGISTERS FROM INTERRUPT SAVE AREA TO COMMON SAVE AREA 
O0E4 CS OOF 4 CS 4 1" MOVQ  UCBSW_RISAVE(RS) ,UCBSL_REGSAVE (R5) 
50 (01 4 9 18 MOVZWL S$*#SS$_NORMAL,RO : SUCCESS STATUS 
ms 4 ¢ 15 DONE : j, REQUESTS COME HERE WHEN DONE WITH STATUS IN RO 
0009 F 1H BSBW = REQ_COMPLETE 
11 8 STRT_NXT_REQ:  ; START NEXT REQUEST 
53 OOAC DS 1 1020 REMQUE SUCBSL_INOFL(RS).R ; GET NEXT 1/0 PACKET IN QUEUE 
06 6 1021 BVS : THERE ISN'T ONE 
90000000" GF 1 ‘ JMP G*IOCSINITIATE 
64 AS 0100 BF Hi 3 60$: Btw #UCBSM_BSY,UCB$W_STS(RS) ; CLEAR UNIT BUSY 
45 1025 
5 1026 .DSABL LSB 
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1Oe 008 SETCHAR = SET CHARACTERISTICS gr SEF 18 4 90:12:38 DRIVER. SRCILADRIVER.MAR:1 day 
645 1 g ~SBTTL SETCHAR = SET CHARACTERISTICS 
268 1080 :+s 
44 ° ; FUNCTIONAL DESCRIPTION: 
445 1 : : THIS ROUTINE SETS DEVICE DEPENDENT CHARACTERISTICS AFTER THE 
445 1034 ; SUCCESSFUL COMPLETION OF AN INITIALIZE OR SET CLOCK QO. 
445 1035 : FOR INITIALIZE, THE CONFIGURATION BITS ARE SET. FOR SET CLOCK 
12 : § 3 THE CLOCK RATE AND PRESET ARE STORED IF CLOCK A WAS SET. 
44 i : : CALLING SEQUENCE: 
O44 40 ; BSBwW/B 
44 1B¢¢ : INPUT PARAMETERS: 
445 1044 : R3 ADDRESS OF IRP 
445 1045 : R5 ADDRESS OF UCB 
gets 1947 : IMPLICIT INPUTS: 
0445 1049 : THE CHARACTERISTICS ARE IN OFFSETS IRPSL_MEDIA THROUGH 
pete 1339 3 IRPSL_MEDIA+S OF THE 1/0 PACKET 
0445 105 $ OUTPUT PARAMETERS: 
0445 1053; 
gee eto 
044) 1056 t SIDE EFFECTS: 
0445 1058 : RO,R2 ARE NOT PRESERVED 
0445 1059 ;-- 
O46 1061 SETCHAR: 
445 1082 "ASSUME IRPSS_FCODE EQ 6 
52 20A3 CO 8F 8B 0445 1063 BICB3 #*XCOTIRPSW_FUNC(R3),R2 ; GET 1/0 FUNCTION CODE 
448 ide8 : 1S IT INITIALIZE? 
04 52 1 448 1066 {ne Re ,#108_INITIALIZE os 
03 383 6 486 1068 INSV IRPSL_MEDIA(R3) ,ALASV_CONFIG,- ; YES, STORE CONFIGURATION 
44 AS OA 454 1 69 #LASS_CONF 16,UCBSL_DEQDEPEND(RS) : BITS 
1 437 20 BRB 30$ 
139 1 re 10$ ; IS IT A SET CLOCK (EITHER ONE) 
56 8 35 re i qi cnr Bag tOt,_ Ae rELaee ; YES 
05 93 91 4st 1075 CMPB Re #10$_SETCLOCKP ’ 
16 12 46 2 BNEQ 308 : NO 
463 1 28 208: =; IT'S A SET CLOCK. ONLY SET CHARACTERISTICS IF CLOCK A WAS SET 
11 38 A304 £0 463 107 6S #4, IRP " MEDIA(R3),30$ ; BRANCH IF CLOCK 6B IS BEING SET 
50 3A A3. FF rt 468 1080 ASHL #1, IRPSC_MEDIA+2(R3),RO ; GET CLOCK A RATE IN LOW BITS OF RO 
0D 9 FO AGF 1081 RO, #LASV_RATE,- ; TORE RATE IN CHARACTERISTICS 
4405 0 ari ; #LASS_RATE ,UCBSL_DEVDEPEND (RS) 
474 1084 ASSUME LASV_PRESET EQ 16 
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~SBTTL SDATA = START DATA PROCESSING 


p++ 
; FUNCTIONAL DESCRIPTION: 


SDATA: 


10$: 


15$: 


THIS ROUTINE PERFORMS THE PROCESSING NECESSARY FOR START DAT 
IT ALLOCATES A BUFFERED DATAPATH (IF THE REQUEST IS A DEDICATED 
MODE REQUEST), ALLOCATES AND LOADS MAP REGISTERS FOR THE USW 

BUFFERS, AND RCL AND BUILDS THE RDA FROM INFORMATION IN THE SIP. 


CALLING SEQUENCE: 


BSBW SDATA 
INPUT PARAMETERS: 
R1 rte Ft: OF CRB 
R3 DORESS OF IRP 
RS ADDRESS OF UCB 
OUTPUT PARAMETERS: 
RO COMPLETION CODE 


COMPLETION CODES: 


SS$_NORMAL NORMAL 
e5- INSFMAPREG INSUFFICIENT MAP REGISTERS 
SS$"INSFBUFDP NO DATAPATHS AVAILABLE 


SIDE EFFECTS: 


R2,R4 ARE DESTROYED 


MOVL IRPSL_SIP(R3) ,R4 ; GET PTR TO SECONDARY 1/0 PACKET 


IF A be ICATED MODE TRANSFER, REQUEST A BUFFERED DATAPATH 
bps oSIP$SW_MODE(R4),10$  ; BRANCH IF MULTI@REQUEST MODE 


JSB G* IOCSREQDATAPNW 3 pepicaree MODE - GET A BOP 
MOVL gire(hs). R1 ; RESTORE POINTER TO CRB 


BISB3 CREEL INTD+VEC$B_DATAPATH(R1) = DAT 
#VECSA_LWAE.SIP$B_BFR DATAR (RED : SET LONGUORD ACCESS Bit 


ALLOCATE AND LOAD MAP REGISTERS FOR BUFFER . USW, AND RCL 
W_SVAP usw MUST 


» Aha 


ASSUME SIPSL. BFR _SVAPT EQ SIP$L_US ; BE FIRS 
ASSUME SIPs Bee ~SVAPT EQ SIPSL_BFR -SyAPTs 1 RCL ‘MUST BE LA 
ADDL #siP C_US@_SVAPT,R4 7 POINT TO FIRST SVAPTE 


MOVa =. (R4) + ,UCBSL_SVAPTE(RS) LOAD SVAPTE BOFF BCNT 
BEQL 208 ; (ONL CASE OF NO R 


WORK ks bn 
MOVB 3(R4), CRBSL_INTD+VECSB_ DATAPATHGRD LOAD DATAPATH 
8SBW SETMAPREG ALLOCATE ANB LOAD MAP AREGISTERS 


RST T! 
ST! 


| a 2 
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SDATA = START DATA PROCESSING -SEP- DRIVER. SRCJLADRIVER.MAR; (15) 
v04 T 19 14: 1 
35 50 €9 O4AB 1147 BLBC RO, 50$ ALLOCATION FAILURE 
) 84 34 Al 09 4AB 1148 MOVL  CRBSL [NTD+VECSW_ MAPREG(R1),(R4)* ; SAVE MAPREG, NUMREG 
8 6E SOF AF 1149 20S: SOBGTR (SP),15$ 
iBs 1181 » NOW BUILD THE RDA 
54 48 3 0 0482 11 : Mov Me se ; RESTORE POINTER TO BEGINNING OF SIP 
50 0164 ¢ — 0486 115 MOVAW UCBSW-RDA(R5S) ,RO + POINT TO RDA IN UC 
0 64 7D 0488 1154 MOVO SIPSWIMODE(R4S,(RO)+  ; STORE MODE, BYTE COUNT, AND VALID 
4BE 1155 : BUFFER MASK IN RDA 
FA AO O02 Ab 48 1136 DIVW2 #2,-6(RO) + CONVERT BYTE TO WORD COUNT IN RDA 
4C 1138 INSERT USW ADDRESS 
FC AO 20 A6 BO O4C2 11 hovw S1P$w aUSW_BOFF(R4),-4(RO) ; BYTE OFFSET 
FC AO 09 «209°0=«Oo24 AGC ac? 1160 INSV  SIPSWIUSW"MAPRE(R4S 49,89, 4 (RO) ; PAGE NUMBER 
‘a Ace 116¢ iiolt™ INSERT BU BUFFER ADDRESSES 
52. 02 AG ge tb 1164 MOVZWL si6s0" PRCNT (R4) ,R2 ; By FFER LENGTH 
60 2C Ad 3C 0405 1165 MOVZWL SIPS$WTBFR_BOFF(R4),(RO) ; BYTE OFFSET 
60 09 09 30 a6 FO 0409 1166 INSV SIPS “BFR-MAPRE (R45 #9, #5, (RO) : FIRST BUFFER ADDRESS 
50 04 CO ODF 116 ADDL 4,R : POIN 1 to SECOND BUFFER 
80 FC AO 52 (C1 O4Eg 1168 40$: § ADDL3 Ro. -4(RO),(RO)+ + DO REMAINING 7 BUFFERS (ALWAYS CALC. 
FB GE FS O4E 1169 SOBGTR (SP),40$ + ALL 8 BUFFERS EVEN IF THERE AREN'T 
aie 1170 : THAT MANY). 
4EA 1178 ; NOW STORE RCL ADDRESS IF THERE IS ONE 
80 38 AG 3C O4EA 117 MOVZWL SIPSW_RCL_BOFF(R4),(RO)+ ; IF THERE IS NO RCL, 
FC AO 60090«COO09's 3 AGSC#'CO eg 1174 INSV SIPSWIRCL-MAPRE(R4S 49,89, <4(RO) : THIS STORES A ZERO 
80 OC AG 7D O4F5 1175 MOVG SIPSLTSLVBATA(R4),(RO)+ ; COPY REST OF RDA 
80 146 A6 7D 04F9 1176 MOVQ  SIPS$L~SLVDATA+8(R4), (RO) 
= fe eta 4 a MOVZWL S*#SSS_NORMAL ,RO 
SE 046 «C0 $09 1199 50$: ADDL #4,SP 
Set Wn a 
0504 118¢ 60$: ; NO DAT 
50 033C BF 3C 0504 118 MovZuL tess" INSFBUFDP,RO 
05 0509 1184 
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+ 
FUNCTIONAL DESCRIPTION: 


: THIS ROUTINE RELEASES VARIOUS RESOURCES (UNLOCKS PAGES, RELEASES 
: MAP REGISTERS AND DATAPATH, AND DEALLOCATES SIP) BEFORE SENDING 
; AN 1/0 PACKE? 10 1/0 POST "PROCESSING: 
; THIS ROUTINE ALSO DOES SOME STUFF FOR ERROR LOGGING AND DIAGNOSTICS 
> CALLING SEQUENCE: 
; BSBW REQ_COMPLETE 
; BRW REQ” COMPLETE 
: INPUT PARAMETERS: 
; RO FIRST LONGWORD OF 1/0 STATUS BLOCK 
: R1 SECOND LONGWORD OF 4149 STATUS BLOCK 
; F Q1O IS A STOP, THEN STATUS IS ALREADY IN I/O PACKET 
; R3 NDDRESS OF 1/0 PACKET 
: R5 ADDRESS OF UCB 
: OUTPUT PARAMETERS: 
: NONE 
REQ_COMPLETE: 
PUSHR  #*M<RO,R1,R2,R3,R4,R5> 
BICB3 #*xco, athe gUne (RS) ),R4 ; GET FUNCTION CODE 
CLRO UCBSL *REGSAVE+8(R5) 3; CLEAR pATAOIN # AND REGISTER IN 
t REGISTER SAVE AREA 
iu1F THIS 1S A STOP REQUEST, THEN DON'T LOAD 1/0 STATUS 
CMPB ss #0$_STOP,R4 STOP REQ 
BEQL 6=sS$ : YES, DON'T LOAD STATUS 
MOVG RO, IRP$L_10ST1(R3) + NO, LOAD 10SB8 
5$: GET POINTER TO C 
hove UCBSL_CRBCR ),R1 ‘ 
> IF THIS Is AN INITIALIZE Q10, RELEASE MAP REGISTERS POINTING TO RDA 
ture #10 INITIALIZE ,R4 IN ITIALIZE? 
MOVL IRPSL_RDAMAPREG(R3) ,- GET STARTING MAP # AND NUMBER OF 
CRBSL~INTD+VECSw_| Ricci REGISTERS AND MOVE INTO CRB 
BSBW = REL_MRODP RELEASE THEM 
10$: : IF THIS vas A START DATA OR STOP Get POINTER TO SEC. 1/0 PACKET (SIP) 
tnPe Ht $_STARTDATA,R4 ; START DAT 


3 yess 
CMPB $196 STARTOATAP MA 3; START DATA PHYSICAL? 
BEQL 15$ 3; YES 
CMPB £198,510? 6 ; STOP? 
30$ 3; NO 
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16-SEP-1984 00:1 AX/VMS Macro v04-00 Page 
E PROCESSING =SEP=1984 t $8; 12: 38 YORIVER. SRCILADRIVER.MAR; 1 . (79) | 
15$:  MOVL IRPSL_SIP(R3),R4 : GET POINTER TO SIP | 
RELEASE MAP REGISTERS FOR USW, DATA BUFFERS, AND RCL. 
hov S1P$W_USW_MAPR E(R STARTING MAP REGISTER # AND NUMBER 
CRBSL “INTB+VECSW MnabReG (ht) OF REGISTERS FOR USW. 
BEQL =s« 16 i NON 
BSBW REL_MRDP RELEASE Usi MAP REGISTERS 
16$: MOVL § SIPSW_BFR_MAPRE(R4) SAME FOR DATA BUFFERS, BUT 
CRBSL_INTD+VECSW_ Seared} INCLUDE BUFFERED DP #, AP Ot 
BEQL =«1.8$ : NONE 
BSBW REL_MRDP RELEASE MAP REGISTERS AND DATAPATH 
18$: MOVL SIPSW_RCL panne R4) SAME FOR RCL, IF THERE IS ONE 
CRBSL—INTD+VECSW “MAPREG ( ia} 
BEQL 208 ; NON 
BSBW REL_MRDP + RELEASE RCL MAP REGISTERS 
20S: iioltO™ UNLOCK PAGES FOR USW, DATA BUFFERS, AND RCL AND DEALLOCATE SIP. 
BSBB  —«UNLOCKF 
30$: 


DO ERROR LOGGING AND DIAGNOSTIC STUFF 
BopR  waM< <RO,R 5> 
BSBW DODIAGERL 


; NOW QUEVE 1/0 PACKET FOR 1/0 POST PROCESSING 
JSB G*COMS$POST 
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1 
PAGES AND DEALLOCATE SIP BrSEp- 1984 
-SBTTL UNLOCK = UNLOCK PAGES AND DEALLOCATE SIP 


UNLOCKF : 
MO 


UNLOCK: 


10$: 


208: 


soe 
; FUNCTIONAL DESCRIPTION: 


PAG 
BEFORE UNLOCKING THE PAGES. 
DATA BUFFERS, AND THE RCL. 


; CALLING SEQUENCE: 


BSBW 
BSBW 


UNLOCK 
UNLOCKF (FOR 


; INPUT PARAMETERS: 


R5 ADDRESS OF SIP 


; ¢ OUTPUT PARAMEMTERS: 


NONE 


; SIDE EFFECTS: 


RO - RS ARE NOT PRESERVED 


;_ FORK ENTRY POINT 
VB 


; NO FORK ENTRY POINT 


» UNLOCK PAGES 
PUSHL = R 
ADDL #$1PSL_USW_SVAPT RS 
MOVL #3,R4 
: UNLOCK NEXT AREA 
MOVL (R5),R3 
EQL $ 
MOVZWL 4(R5) RI 
MOVZWL G(R ) Re 
MOVAB. 511(R1) R2].R1 
JSB gaMMeeONL OCK 
ADDL =—_-«s#12,, B'S 
SOBGTR R4,10$ 
NOW DEALLOCATE SIP 
hove 
ISB Gee Ke SDE ANONPAGED 


00:12:56 YAX/VMS Macro V04-00 


E IT 
S; THE OTHER FORKS 
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ERE LOCKED FOR A DATA TRANSFER 
HAS TWO ENTRY POINTS: ONE SIMPLY 
(USING THE SIP AS A FORK BLOCK) 
PAGES ARE UNLOCKED FOR THE USW, THE 


KS) 


#IPL$_QUEUEAST,FKBSB_FIPL(RS) 


CDOE St T FORK) 


; LOAD FORK IPL 


SAVE POINTER TO 72 | page OF SIP 
POINT_TO FIRST SVAPT 
LOOP 3 TIMES (usw, DATA BUFFERS, RCL) 


GET SVAPTE 


; rpg be B THERE 
st 


GET BENT 
SS ed OFFSET AND COUNT AND ROUND 
CON veer ma # OF PAGES (TO UNLOCK) 


; UNLOCK THEM 
: POINT TO NEXT SET OF INFO. 


GET POINTER TG BEGINNING OF SIP 
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SETMAPREG = ALLOCATE AND LOAD UBA MAP ae | -SEP=-1984 DRIVER.SRCILADRIVER.MAR; 1 (19) 


| 


| 


A ~-SBTTL SETMAPREG = ALLOCATE AND LOAD UBA MAP REGISTERS 
p++ 
: FUNCTIONAL DESCRIPTION: 
THIS ROUTINE ALLOCATES AND LOADS UBA ee REGISTERS. 
IF MAPPING REGISTERS WERE PREALLOCATED THEN THE ALLOCATION IS FROM 
THE BITMAP IN THE UCB. OTHERWISE THE ALLOCATION IS FROM THE BITMAP 


IN THE ADP. 
CALLING SEQUENCE: 

BSBw SE TMAPREG 
INPUT PARAMETERS: 


R1 POINTS T 
R5 POINTS T 


IMPLICIT INPUTS: 
UCBSL_SVAPTE UCBSW BENT, UGS BORE D 
UCBSL-PREALLOC IS NON- F MAP REG! 
CRBSL~INTD+VECSB SDATAPATH CONTAINS THE 

OUTPUT PARAMETERS: 


RO CONTAINS A vr ION CODE (SEE BELOW) 
R2 CONTAINS 18 BIT STARTING UNIBUS ADDRESS OF AREA MAPPED 


IMPLICIT OUTPUTS: 


CRBSL_INTD*VECSW_MAPREG CONTAINS STARTING MAP REGISTER NUMBER 
CRBSL_INTD+VECSB_NUMREG CONTAINS NUMBER OF MAPPING REGISTERS ALLOCATED 


COMPLETION CODES: 


SS$_NORMAL ALLOCATION WAS 
SSS-INSFMAPREG ALLOCATION FAIL 


SIDE EFFECTS: 


O CRB 
0 UCB 


SCRIBE THE AREA TO . MAPPED 
TERS WERE tte TED 
DATAPATH NUMBER TO U 


Moronoens 


SUCCESSFU 
ED (INSU FFICIENT MAP REGISTERS) 


SIDED DDD DDD DD PT Be BS BS BS BB BE ENN NII 


PV 9 OD NO NE WN 9 OD NA NE WIN OC OOD NIP NEW OS OD NAME WIN OO OONO UE WO Oo 


Oe Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Se Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Ge 


wa pwabvabvapvabvabvabvabvabrabvabeabrabeab eal val val valtaleareatearea reales wales teal eal wala tala as eal eal eal val valvalvabeaseal 
DWOWWDVDWIVDVOIVAIVDVDVIOOVDOODOVDOODWVDWWOODWVDOOOOV2OOOTWTOIUTOD 


SOOOCOCOOOOCOCOCOCOCOCOOOCOCSOGOOOOOCCOCOCCOCOOOCOOOOOCOOCOOOCoOOoO 


NONE 
7 
72 See 
38 , SETMAPREG: 
58 75 ; If map registers were preallocated, then we call local subroutine 
58 76; ALLOC_LOCALMR to use some of preallocated registers. Else we 
28 4 3 use ones system subroutine to allocate from central pool. 
O0OA8 CS”) sD 3 7 TSTL VERSE PREALLOC (RS) i 4 REST STERS PREALLOCATED? 
. <2 58 BEQL : ROCEED NORMALLY 
dD. (1 58 BSBB SLLOC LOCALAR : fy Re rom local pool. 
Acs 5BA BRB 2 : and branch around normal path. 


10$: ; ALLOCATE MAPPING REGISTERS 


LADRLY R = LPA=11 DRIVER 16=SEP=1984 00:12: AX/VMS Macro v04-00 Pa 1 
yah SETMAPREG = ALLOCATE AND LOAD UBA MAP RE $73 pa lone 9b: 12:88 YORIVER. SREICADRIVER. MAR; 1 a dd) 
09000090" GE 1 BC 1385 JSB G* 1OCSALOUBAMAP 
1 26A5 OD c : ose MOVL  UCBSL_CRB(RS),R1 ; REFRESH R1 => CRB. 
1850 €9 c : " -« BLBC~— sO, $08 ; ALLOCATION FAILURE 
C9 1390 LOAD UNJBUS MAPPING REGISTERS 
12 BB 05¢9 1391 busHR R4> 
00000000'GF 16 05¢B 1 36 SB 6 10CBLOADUBARAP 
12. BA Dt 93 #°M<RIR 
D3 1395 SET UP STARTING uN Bus ADDRESS OF AREA MAPPED 
52 7¢ AS 3¢ 30 1 % hoviuL UCBSW_BOFF R2 BYTE OFFSET IN PAGE (LOW 9 BITS) 
52 09 09 «Bal OF 507 3 INSV—- CRBSL= fnrbevec$u “MAPREG(RI), #9,89,R2 ; HIGH 9 BITS 
50. 01 36 spp 1 38 MOVZWL S*#SS$_NORMAL ,RO : SUCCESSFUL ALLOCATION 
5€0 1400 RSB 
561 1401 
561 1408 
5E1 1403 508: ; ALLOCATION FAILED 
50 0344 BF 3c.) 6 OSE1 «= 1404 MOVZWL #SS$_ INSFMAPREG,RO ; INSUFFICIENT MAP REGISTERS 
05 05€6 1405 RSB 


| LADRIVER = LPA=11 DRIVER 16-SEP-1984 t 90: 13: 38 yas Macro v04-00 Page 36 
v06= ALLOCATE UBA MAP REGISTERS FROM LOCAL PO 5=SEP-1984 DRIVER. SRCJLADRIVER.MAR; 1 (20) 
| E? 14 7 .SBTTL ALLOCATE UBA MAP REGISTERS FROM LOCAL POOL 
E 16 : ; ALLOC_LOCALMR 
3 1e19 t THIS ROUTINE IS CALL LED TO A LLOCATE UBA REGISTERS AND To, MARK THE ALLOCATION 
26! et ; IN THE UBA MAP REGISTER ALLOCATION LOTMAP, MAINTAINED LOCAL 
| SE? 1414 ; INPUTS: 
E7 14615; 
E 1416 : RS = DEVICE UNIT UCB ADDRESS. 
367 1618 + OUTPUTS: 
E7 1419 ; 
5E7 1420 : RO = SUCCESS INDICATION. 
3EF 125) °° 
5E7 14 § ALLOC_LOCALMR: ZALLOCATE UBA MAP REGISTERS CRB SPECIFIED 
53 7D O5€7 1424 MOVQ = R3,,=( SP) : Save R3 an 
53 7E A C O5EA 1425 MOVZWL UCBSW_BCNT(RS) ,R3 :GET TRANSFER BYTE COUNT 
5 AS 6 3C COOSEE «14 : MOVZWL ycesu BOFF(R5) .R& [GET BYTE OFFSET IN PAGE 
53 O3FF C344 9 O5F2 14 MOVAB “X3FFTR3)CR4),R3 : CALCULATE HIGHEST RELATIVE BYTE AND ROUND 
53. OS a 78 0578 14 : ASHL = #=9, R3, ;CALCULATE NUMBER OF REGISTERS REQUIRED | 
D4 O5FD 1429 S$: CLRL ASSUME ALLOCATION FAILURE 
1 265 00 OSFF 1430 MOVL u BSL_CRB(RS),RI1 GET ADDRESS OF CRB 
6a1 53 90 03 1431 MOVE ,CRBSL_INTD+VECSB wunnisinys : SET PNUMBER OF MAP REGISTERS ALLOCATE | 
34 D4 0607 14 ; CLRL Ra EAR STARTING BIT POSITION 
52 54 53 C1 0609 1433 108: ADDL3 RS. R4_R2 SEALCULATE HIGHEST BIT IN REQUIRED SCAN 
O1FO BF i B1 060D 1434 CMP #496 iBEY OND END OF ALLOCATION BITMAP? 
14 0612 1435 BGTR g F GTR YES 
54 0126 65 20 EA 0614 14 $ FFS R4,#32,UCBSW LMRBITHAP(RSS R4 :FIND A SET BIT 
13 0618 14 BEQL i x il F at Bit NOT FOUND 
52, Ci 061D 14 2 ADDL3 LCULATE HIGH BIT FOR SUCCESSFUL ALLOCATIO. 
BO 0621 14 MOV na aes INTD+VECSW mapntgcni) i SAVE STAR TING BIT NUMBER 
54 0124 ‘” i EB 0625 1440 20S: FFC UCB$W_MRBI TMAP(RS) FIND CLEAR BIT 
D1 C 1641 CMPL 2N NOU in SET *BiTS SCANNED OVER? 
5 18 62F 1648 BGEQ IF GEQ YE 
EE 0124 CS 34 £0 6 } 1645 BBs Eco, MRBITMAP(RS), 208 ; s1F SET, CONTINUE SCAN 
54 34 Al 3C 9 1665 30$:  MOVZWL CRBSL INTD*VECSU _MAPREG(R1) R4 jRETRIEVE STARTING. MAP REGISTER 
6 10 063D 1446 BSBB T_LOCALBIT SALTER MAP REGISTER BITM 
0 06 63F 1447 40S: INCL R SET SUCCESS INDICATOR 
53 BE 7D 1 1448 50$:  MOVO (SP)+,R3 SRESTORE REGISTERS 
05 0644 1449 RSB ; 
| 


G 3 
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[ 
| ALTER LOCAL UBA MAP REGISTER BITMAP =SEP=19 DRIVER. SRCILADRIVER.MAR; 1 0) 
| 64 14 .SBTTL ALTER LOCAL UBA MAP REGISTER BITMAP 
| ee 14653 | ALT LOCALBITHAP 
645 1455 : THIS ROUTINE IS CALLED TO EITHER CLEAR OR SET A FIELD OF BITS IN THE UBA MAP 
64 16 : t REGISTER ALLOCATION BITMAP MAINTAINED LOCALLY IN THE UCB. 
64 16 : : INPUTS: 
645 1460 ; RO = ALTERATION BIT MASK. 
645 1461 : R1 = ADDRESS 
64 1466 : RG = STARTING. MAP PREGISTER NUMBER. 
64 1463 : RS => UCB 
1465 : OUTPUTS 
1463 : THE SPECIFIED BIT FIELD IN THE UBA MAP ALLOCATION IT map IS EITHER SET 
te 1468 ; OR CLEARED DEPENDING ON THE STATE OF THE ALTERATION MASK 
roe 1290 : R3 AND R4 ARE DESTROYED. 
Bees tebe * 
45 1278 ALT_LOCALBITMAP: 
9A 0665 1474 MOVZBL cReSL INTD+VEC$B_NUMREG(R1) a3 get NUMBER OF Bits TO ALTER 
3 20 p} 649 1475 108: CHPL MORE THA N LONGWORD LEFT 
012665 20 S56 50. FO af 1499 INSV RO.R4,#32,UCBSW _MRBITMAP(RS) “ALTER BITMAP WITH SUPPLIED PATTERN 
4 20 £0 55 1478 ADDL @ 436. ré UPDATE STARTING BIT POSITION 
3 : C 638 1479 SuBL R3 REDUCE NUMBER OF BITS 0 ALTER 
01246 ¢5 53 56 50 £0 065D 1283 208:  INSV RO,R4,R3,UCBSW_MRBITMAP(RS) ;ALTER BITMAP WITH SUPPLIED PATTERN 
05 0664 1482 RSB : 


| 

| 

| 
64 
64 
64 
64 

53 36 Al 
5 
| 


SIDE EFFECTS: 
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REL_MRDP = RELEASE UBA MAP REGISTERS AND oat 90:12:88 YORIVER. SRCILADRIVER.MAR; 1 “ 36) 
66 14 ‘ -SBTTL REL_MRDP = RELEASE UBA MAP REGISTERS AND DATAPATH 
6 1486 ;+¢ 
66 14 5 : FUNCTIONAL DESCRIPTION: 
665 14 § : THIS ROUT INE RELEASES UBA MAP REGISTERS AND A BUFFERED 
665 1490 : DATAPATH IF ONE WAS ASSIGNED. IF MAPPING REGISTERS 
665 1491 : WERE PREALLOCATED THEN THEY ARE RELEASED INTO THE BITMAP IN THE 
6 149 ; UCB. OTHERWISE, THEY RELEASED INTO THE BITMAP IN THE ADP. 
665 1493 : THE LATTER CASE aN ATE RET 1S MADE TO CALL ANY DRIVERS WAITING 
665 149% : FOR MAP REGISTERS (ON THE ADP QUEUE). BUFFERED DATAPATHS ARE 
65 1495 : ALWAYS RELEASED INTO THE ADP BIT BECAUSE THEY ARE NOT PREALLOCATED. 
6 1496 : LSO, THE DATAPATH IS PURGED peer URE IT IS RELEASED. 
665 1497 : THE DATAPATH NUMBER AND DATAPATH REGISTER ARE COPIED INTO 
66 1498 THE REGISTER SAVE AREA FOR AD TAGNOSTICS AND ERROR LOGGING USE. 
et 13 : > CALLING SEQUENCE: 
0665 13 ; ; BSBW =—-REL_MRDP 
0665 13 4 + INPUT PARAMETERS: 
665 15 : : R1 POINTS TO CRB 
665 1507 : R3 POINTS TO IRP 
0665 1308 ; R5 POINTS TO UCB 
0665 1310 : IMPLICIT INPUTS: 
0665 131¢ : UCBSL _PREALLOC IS NON-ZERO IF MAP REGISTERS WERE PREALLOCATED 
665 1513: RBSL-INTD+VECSW_MAPREG CONTAINS THE STARTING MAP REGISTER NUMBER 
665 1514: CRBSL-INTD+VECSB-NUMREG CONTAINS F MAP REGISTERS TO RELEASE 
0665 1515 : CRBSL— INTD+VECSB> DATAPATH CONTAINS THE DATAPATH NUMBER (ZERO MEANS 
re 1318 : BUFFERED DATAPATH WASN'T ALLOCATED). 
665 1318 : OUTPUT PARAMETERS: 
665 1519; 
0665 1520 : NONE 
1521 ; 
SOs 1258 : 
665 1524: IF THERE IS A DATAPATH ERROR, THEN THE STATUS SS$_PARITY IS STORED 
ret 1 $3 IN THE 1/0 PACKET. 
66 ! ow 
re 1 ; REL_MRDP: 
BB 0665 1 PUSHR #*M<RO.R1.R2,R4> 
DD 0667 1530 PUSHL : SAVE R3 SEPARATELY 
b3 69 1531 TSTL UCBSL_PREALLOC (RS) t REGISTERS PREALLOCATED? 
1 66D 13 : BEQL ; NO 
6F 1534 REGISTERS WERE PREALLOCATED SO SET UP TO ALTER BITMAP IN UCB. 
3C F 1535 hoviu CRBSL_INTD+VECSW_MAPREG(R1),.R4 ; STARTING MAP REGISTER # 
D 31 6 On” 3 R : ALTER PATTERN 
1 2 1 BSoB Att LOCALBI TMAP : Alter local bit map. 
11 0678 1 3 BRB 
67A 1 
1540 
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; REGISTERS WERE NOT PREALLOCATED SO RETURN THEM TO ADP BITMAP 
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QOOEC CS = $2 
OOFO cS) 51 
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RELEASE UBA MAP REGISTERS AND g-36F- 198 8b:18 38 DRIVER. SRCILADRIVER. MAR; 1 . 38) 
1541 JSB G* 1OCSRELMAPREG 

4¢ MOVL  UCBSL_CRB(RS),R1 ; RESTORE POINTER TO CRB 

1544 208: j RELEASE _DATAPATH IF ONE WAS ALLOCATED 

1545 OV ORE R3_ (POINTER TO IRP) 

1 46 EXTZV ne sin DATAPATH, AVECSS pita Mee rare EX XTRACT DATAPATH NUMBER 

154 gr ; L_INTD+VECSB_DATAPATH(R1) RO : INTO R2 

48 BEQL ; NONE RELOCATED 

1 30 » PURGE DATAPATH, 

1551 PUSHR : SAVE D.P. NUMBER AND IRP POINTER 

i 158 got ESBURGDATAP : SF TURNS STATUS IN RO, D.P. REG. IN R1 
1554 BLBS ae NO TRANSMISSION ERROR 

55 MOVZWL RO, “PARITY, IRPSL_ 10sT1(R3) ; YES, RETURN ERROR STATUS 

3§ 25$: i SAVE DATAPATH NUMBER AND CONTENTS OF DATAPATH REGISTER IN REGISTER 

1 8 hove Re UCBSL_REGSAVE+8(R5) ; SAVE DATAPATH NUMBER 

1360 MOVL -UCBSL~ REGSAVE+12(R5) : SAVE DATAPATH REGISTER 

1368 JSB G* 1OCSRELDATAP ; RELEASE DATAPATH 

1564 308: POPR #*M<RO,R1,R2,R4> 

1565 RSB 


c--- 
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V04= READY IN RT ERRUPT SERVICE g-8 et} 90:12:38 YORIVER. SREILADRIVER.MAR: 1 a 34) v( 
| 1567 .SBTTL READY IN INTERRUPT SERVICE 
| Ba 
| 20 : FUNCTIONAL DESCRIPTION: 
1 as : THIS ROUTINE IS THE READY-IN INTERRUPT SERVICE ROUTINE. 
| 1573 ; SUMING THE INTERRUPT WAS EXPECTED, IT CALLS THE DRIVER AT 
157% : THE INTERRUPT WAIT ADDRESS AND THEN RETURNS. UNEXPECTED 
05 ; INTERRUPTS ARE IGNORED BY RETURNING IMMEDIATELY. 
7 $ CALLING SEQUENCE: 
hi : JSB FROM INTERRUPT VECTOR IN CRB 
1 : INPUT PARAMETERS: 
$ ; NONE 
13 5 : IMPLICIT INPUTS: 
13 ; ; THE STACK ON ENTRY IS AS FOLLOWS: 
13 9; O(SP) ADDRESS OF IDB ADDRESS 
1590 : 4(SP) = 24(SP) SAVED RO = R5 
1591 : 8(SP) INTERRUPT PC 
1398 : 2(SP) INTERRUPT PSL 
1394 : OUTPUT PARAMETERS: 
1596 : NONE 
1399 ie 
HE 
1600 LASRDYININTSV:: 
53 9E 0 1601 MOVL  a(SP)+,R3 : GET ADDRESS OF IDB 
1608 ASSUME IDBSL_CSR+4 EQ IDBSL_OWNER 
54 63 «7D 1603 MOVQ  IDBSL~CSR(R3) ,R4 ; CSR => R4; UCB => RS 
1E 6405 01 ES 1605 BBCC  #UCBSV_INT,UCB$W_STS(R5S),INTEXIT ; IF CLR, INT. NOT EXPECTED 
1809 ; COPY LPA-11 REGISTERS INTO READY-IN INTERRUPT SAVE AREA 
00F4 CS 64 1608 MOVY  LA_CISR(R4) ,UCBSW_RISAVE (RS) 
00F6 CS (02 AAC 160 MOVW  LATCOSR(R4) -UCBSW-RISAVE+2(R5) 
00F8 C3 4a OB 1610 MOVW  LATRDA(R4) ,UCBSW_RISAVE+4(R5) 
OOFA ¢ aa 6B 1611 MOVW  LATMAINT(R4) ,UCBSW_RISAVE+6(R5) 
53 1005 7D 1818 mova ucest FR3(RS5),.R3 : RESTORE DRIVER CONTEXT 
0c B85 (16 161 JSB aUCcBSC_FPC(RSS : CALL DRIVER AT INTERRUPT WAIT ADDRESS 
1616 INTEXIT: 
59 — 7D 161 mova ($P)+.R9 ; RESTORE REGISTERS 
; — 72D 1618 MOV (SP)+:R 
oo 161 MOVO = (SP)4+_R4 
02 1620 REI 


bP LAE: ite ee ne «Celt Me nS el EH lhc dane! L 


vans 


OOFC CS) 64 COW 
FE C 2046 «6B 
100 ¢ AG OB 
102 ¢ AS OB 


55 


55 


o 
oe 
Pl 
a= 
mn 


«SBTTL READY OUT INTERRUPT SERVICE 


+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS THE READY-OUT aig 4 SERVICE 
AFTER ed Mh THE parce PT, THIS ROUTINE FOR 
THE CAUSE OF THE INTERRU AND DISPA TtHES TO A 
ROUTINE. Nagy a BASICALLY FOUR CASES: 


O€ 
A) At a ree: wroctesce 
B) BUFFER FULL OR EMP 
C) BUFFER OVER/UNDERRUN 
) COMMAND ERROR 
) USER REQUEST ERROR (DURING A DATA TRANSFER) 
) FATAL HARDWARE ERROR 


FAPSASASOSAASAS O-— 


wr 


CALLING SEQUENCE: 
JSB FROM INTERRUPT VECTOR IN CRB 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
THE STACK ON ENTRY IS AS FOLLOWS: 
0(SP) ADDRESS OF IDB ADDRESS 
4(SP) SAVED RO = R5 
8(SP) INTERRUPT PC 
2(SP) INTERRUPT PSL 


PAEAPAXRPEAPEAAAA AA AA AAA AAAA AO 


PAEAAAXAEMAMAM MAMMA BEEP LLL EE 


OOoOOCCOCOCOOSOOOOSOOCSOOOOSOOOSOSCOOO 


DDD A AAA AAA AAA AAA AAO 


OUTPUT PARAMETERS: 
NONE 


Se Se Se Ge Ge Se Se Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Se Se Ge Se Ge Se Se 


LASRDYOUTINTSV: : 

53 9E& 00 MOVL ( 
ASSUME 108 
MOVQ 108 


54 63) 7D 


4 ; GET ADDRESS OF IDB 
R3),R4 ; CSR => R4; UCB => RS 
STERS INTO ra INTERRUPT SAVE AREA 
) WLR E(R5) 

) 

4 


FN O ODA NE WIN 9 OD NOU EWN (OOD NOUE WW" OUOnNOUISUM DD 


PAPA AAPA AAA AA AAA A AO 
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; COPY LPA-1 
VW LAC 
C 

R 

| 


CBSW_ROSAVE+4(R5) 
UCBSW. ROSAVESCCRS) 


eet rte F TO RETURN TO AFTER F 
MOVAL UCBSL_FORKO(RS) RS : AVE TO USE DIFFERENT FORK BLOCK THAN 
FORK READY IN INTERRUPTS USE. 
MOVAL =UCBSL_FORKO(RS) RS ; RESTORE POINTER TO UCB 


; COPY LPA-11 REGISTERS FROM INTERRUPT SAVE AREA TO COMMON SAVE AREA 


D6 
0084 (5 —séODE 


FF4C CS ODE 


ee et et a st et a 8 4 tt a a dn tn bn as as a 2 5s 2 a a ts a a a tt te 


~~ &§ OOOO BWM 


SSN 
DWNOUE WO OC 
n 
ce 
> 
o 


a eb 


PHOOAAAOAOOO 


K 3 | 
RUPT SERVICE "Bree bbe Oos1e189 FDRIVER. eaeoc abet veg. MAR; 1 — By 


vi 


a 


02 


= LPA-11 borer 
READY OUT INTER 
O0ES CS) =OOFC CS) «7D SCO0718 19? 
71F 1 
71F 16 
71F 16 ‘ 
71F 16 
0 2 AG Hs 7iF 1 4 
1 6 AS C Q7 ; 1685 
02 AS 860080 BF = AA? 16 § 
720 16 
72D 16 3 
51 roe 7? , D 16 
3} 39 66 731 1691 
734 1996 
734 169 
0 epereets 8F 6 734 1694 
50 650—OFB BF 73C 41695 
95 0741 1696 
9 19 ee 169 
0079 «8931 0745 1698 
74 4 
748 1700 
748 1701 
748 17 § 
748 #17 
748 1704 
One 1705 
50 02 05 ED Q74 1708 
3F 8619 «0740 170 
60 13 O74 1708 
B73 170 
751 +1710 
fi 1 1711 
751 ar 
8) . oe 
751 1714 
50 0054 8F 3C 0751 1715 
15 #11 «Q7 at 
a 
75 1919 
758 1720 
758 1721 
Pe 17 
50 0364 ef 3¢ 6O75C «(17 
D4 0761 1724 
EO 0763 1725 
05 765 17 § 
50 = O2eC a 3¢ 0768 17 
760 17 3 
760 17 
55 S58 AS OD 760 17 ? 
1 ? } 17 
58 A 4 Q773 17 § 
FD91 0 4k 17 
779 «(1734 
779 «1735 


‘a 
RUPT SERVICE "Ore een13be bO;15:89 LOMIVER. SaeIoAbRiver.man:1 2% (35) 


MOVQ UCBSW_ROSAVE (RS) ,UCBSL_REGSAVE (RS) 


INTER wOCCUR) 
MOVZWL UA cos R(R4) RO : CONTROL ouT STATUS 
MOVZWL LA -MAINT(R4S,R1 INTENANCE REGISTER 
BiCw2 #LA_COSR_M_ROY,LA aaa” ; ACKNOWLEGE INTERRUPT 
; PUT BOTH LPAw11 REGISTERS INTO RI TO BE USED AS SECOND 
LONGWORD OF 10SB IN CASE OF ERROR. 
AsHL #16 1,R1 : PUT MAINT. REGISTER IN HIGH WORD 
nOvU RO oat + PUT CONTROL OUT STATUS IN LOW WORD 
GET USER ’ IN R2_ AND DETERMINE IF THIS IS AN ERROR 
BICL3 FEFFFF8,RO,R : GET USER INDEX IN R2 
ASHE FRO. RO : PUT STATUS ON LOW BYTE 
TSTB no + ERROR? 
BLSS ERR ; 
BRW NO ERROR : 
; ERROR 
ERROR: ; SOME SORT OF ERROR = DETERMINE WHAT TYPE AND DISPATCH TO 
: APPROPRIATE ROUTINE. ERROR TYPE IS SPECIFIED BY FIELD 
CA COSR_V_ERRTP WHICH HAS BEEN SHIFT ED pets TO THE RIGHT IN RO 
tmp29 1 COSR _V_ERRTP=8,ALA_ COSR S_ERRTP,RO,#2 
BLSS gRegueSt ERROR 
BEQL CADERR : aust 
: FALL THROUGH TO ... 
: FATAL HARDWARE ERROR 
~ MOVZUL #SS$_CTRLERR,RO : STATUS 
BRB COMPC_ALL_REQS 
3 TIMEOUT OR POWERFAIL 
TIMEOUT: ; DEVICE TIMEQUT AND POWERFAIL COME HERE (AT DEVICE IPL). 
SETIPL UCBSB.FIPL(RS) : LOWER TO FORK IPL 
ROVZuL #Ss$_ POWERFAIL, RO + ASSUM AIL 
CLRL oR ; CLEAR SECOND LONGWORD OF 10SB 
BBS #UCBSV_POWER BRANCH IF POWERFAIL 
UCBSW S1ScR55 COMPL. ALL hed 
MOVZWL #SS$_TIMEOUT.R ; MUST BE TIMEOUT 
COMPL_ALL_REQS: j COMPLET Mt OUTSTANDING 1/0 REQUESTS 
MOVL ye $L_IRP( ; GET CURRENT 1/0 REQUEST PACKET 
BEQL 3 : THERE ISN'T ONE 
CLRL UCBSL_IRPC(RS) ; CLEAR CURRENT 1/0 PACKET 
BSBw REG _ COMPLETE : SEND IT TO REQUEST COMPLETE 
10$ ; NOW COMPLETE ALL OUTSTANDING DATA TRANSFER REQUESTS 


53 


64 


50 


02 


59 


4000 8F 


FC 


A3 


0104 rt 


0104 cote 


50 


A&B 8 


o7 
0334 8F 
05 
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= LPA=11_ DRIVER 
READY OUT INTER 

30 0779 17 
Haat, 
77 «(17 3 

77 «(17 
BO 07 1740 
ie 
788 1328 
788 1744 
31 07 1745 
78E 1766 

78E 1% 
78E 1 3 

78E 174 
78E 1720 
8 E—E 1751 
00 78E 1736 
1 8586 175 
796 1754 
D4 0796 1755 
91 0798 1736 
13 O79F 175 
3C QO7A1 1758 
11 Q7A6 1759 
7A8 1760 
7A8 1761 
3C O7A 1766 
Be are 176 
0 Q7AD 1764 
05 0780 1765 
78 1268 

781 176 
78 1768 : 

78 176 
781 1770 
DO 0781 1771 
4 0785 17 § 

C 0788 17 
Q O7BD 1774 
05 1775 
17 $ 

i 
ie 

17 

17 

17 

17 

17 

17 

1? 

17 

17 

17 

17 

17 
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OOODWW COD OOOO NNN 
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SN 
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BOOOOOCGOOCCOCOOOOOoooo 


RUPT SERV 


REGERR: 


impERR: 


NO_ERROR: 


SEP-1984 
ICE .* SEP=1984 
BSBwW COMPLETE ALL 


DEVICE RESET (MASTER 
bsbint UCase DIPL(RS) 
A eTs R_M_RESET,LA_ 


00:16:38 DRIVER. SACILADRIVER.maR;1 "2% (3 


CLEAR) 10 STOP MICROPROCESSOR 
RA L TO DEVICE LEVEL 
CISRERG) : Aekey 
: LOWER IPL 


; REQUESTS ON THE INPUT QUEUE ARE srantes IN THE NORMAL FASHION. 


HOWEVER 


THEY PARE EXPECTED 
bru SfRT_NXT_REQ 


USER REQUEST E 
USER REQUEST ERROR 
hove ycesi. ROLIST(RS)CR2), 
BEQL 0$ 
CLRL UcBst ROLIST(RS)CR2] 
c # oe 0,R0 
MOVZWL #SS$_DEVREQERR,RO 
BRB 20$ 
STOPPED BY USW REQUEST 
hovzuL $*#SS$_NORMAL ,RO 
BBM REQ_COMPLETE 


COMMAND ERROR 
; COMMAND ERROR 
fov ‘t on 


UCBSL_IRP(RS) ,R3 
CLR UCBSL-IRP(RS) 
MOVWL asss BEVCMDERR R,RO 
BSBW REQ_COMPLETE 


NO ERROR 


TO asst 
START NEXT REQUEST. 


RROR 


R3 ; GET POINTER TO A. PACKET 
CAN HAPPEN IF STOP HAS BEEN QUEUED 
FOR Ny REQUEST 

CLEAR SLOT 

; STOPPED BY USW REQUEST? 


ES 
; NO - ERROR. LOAD STATUS RETURN 


; RETURN NORMAL STATUS 
; CLEAR SECOND LONGWORD OF IO0SB 


ET POINTER TO CURRENT PACKET 
LEAR A eee PACKET ENTRY 
TATUS RETUR 


. 
Mog 


; COME HERE IF THE INTERRUPT WAS NOT DUE TO AN ERROR. 


THERE ane THREE CASES: 
s 
RO = 


mo 


BNEQ BFRFULL 


START REQUEST 


START wg tH PROCESSED 
pry 


BUFFER ee 
FER OVER/UN 


RO = BUF UN 
3 NOTE: WHEN WE GET HERE RO HAS JUST BEEN TESTED. 


; BUFFER FULL OR OVER/UNDERRUN 


PROCESSED 


9 


2) 


= LPA=11 DRIVER 16*SEP-1984 00:12: AX/VMS Macro v04-00 Page 40 Li 
READY OUT INTERRUPT SERVICE eet 90:12:38 DRIVER. SRCJLADRIVER.MAR:1 9 (32). Vi 
7¢3. 1793 STARTREQ: 
7¢ 179% : START REQUEST PRO ESSE 
33 58 AS pO O7¢3 1795 MOVL UCBSL_IRP(RS),R : GET POINTER TO I/O PACKET 
4 BA p 7¢ 1796 MOVL  IRPSL“SIP(R3) -R4 : GET POINTER TO SIP | 
64 7(B 179 MOVE &#STOP"MODE,SIPS$W_MODE(R4S ; BUILD STOP RDA IN SIP 
01 AG 90 O7¢ 1798 MOVB R2,SIPSW_MODE+1 (R4) usER # 
0104 (542 D0 0702 179 MOVL R ycest ROL IST CRS) CR2I : STORE ENTRY IN REQUEST LIST 
58 A564 «(0708 «(1800 CLRL = uc LA1RPCR ) ; NO LONGER CURRENT PACKET 
6C AS O000C000A'BF CO O7DB 1801 ADDL  I*#107UCBSL_DUETIM(RS) ADD 10 SECONDS TO DUE TIME TO PREVENT 
7E3 1 0¢ : TIMEOUTS IN DEDICATED MO TH 
ze ; : SLOW TRANSFERS. 
7E3 1805 ; NOW CHECK TO SEE IF THIS REQUEST HAS BEEN CANCELED 
50 2¢ 3c (O7E3 «(1 6 MOVZWL SSSA ABORT,R ASSUME IT HAS 
64 a5 03 £0 O7E6 1 BB CBSV CANCEL ULBSW_ STS(RS).- : BRANCH IF IT HAS BEEN CANCELED 
25 O7EA 08 QUEUE _STOP_REQ 
O7EB 1816 10$: NOW SIGNAL THAT acoue T WAS STARTED 
54 3c a3 dO 7EB 1811 ho pa RPSL a ae (R3),R4 ; USE BUFFER FULL AST ADDRESS 
10 O7EF 1818 SBB ireNaC eB FUL 
1c 5 33 07F 1 13) Bt BC RO, QUEOE” _STOP_REQ : ERROR 
5 O7F4 1814 RSB 
O7F5 1815 
O7F5 1 1 
O7F5 181 
Bere 1 18 3 
O7F5 1819: BUFFER FULL OR OVER/UNDERRUN 
7k 1820 : | 
7F5 1821 BFRFULL: | 
Orr 1 g : BUFFER FULL OR EMPTY (AND POSSIBLY OVER/UNDERRUN) 
530104 C54 009 775 1 MOVL CBSL_ROLIST(RS)CR2J,R3 ; GET POINTER TO I/O PACKET 
12 13 O7FB 1824 BEQL 0$ ; CAN HAPPEN IF STOP HAS BEEN QUEUED 
54 3C AS 00 o7FD 1825 MOVL  IRPSL_BFR_AST(R3).R4  ; GET BUFFER FULL AST ADDRESS 
01 50 «91 0801 1 6 CMPB sé, #1 : BUFFER OVER/UNDERRUN? 
04 13 0804 1 BEQL 20 : NO 
54 40 A3 06 806 1828 MOVL  IRPSL_OVR_AST(R3),R4 : YES, GET BFR OVER/UNDERRUN AST ADDRESS 
33° 10 O80A 1869 20$: BSBB  SIGNAC BFR FU 
01 50 €9 O80C 1830 BLBC RO, QUEDE_STOP_REQ : ERROR 
05 O80F 1831 30$: RSB 
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= QUEUE A STOP Request | Sasep-toRG Hoste 8 - 


~SBTTL QUEUE_STOP_REQ = QUEUE A STOP REQUEST 


nm 
Oo 
vo 


pee 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE TAKES AN 1/0 PACKET, CHANGES THE FUNCTION CODE TO 

STOP, AND QUEUES THE PACKET TO THE DRIVER (AT THE HEAD OF THE 
QUEUE). IF THE DRIVER IS NOT BUSY, IT IS CALLED IMMEDIATELY 

IT IS ASSUMED THAT THE STOP RDA HAS ALREADY BEEN BUILT IN THE PACKET 
NOTE: THIS ROUTINE MUST BE CALLED AT DRIVER FORK LEVEL. 


CALLING SEQUENCE: 


BSBW QUEVE_STOP_REQ OR 
BRW QUEUE"STOP~REQ 


INPUT PARAMETERS: 
FIRST LONGWORD OF I/0 STATUS BLOCK 


(Go Cd Cd 00 Od 09 Cd CD Cd G9 GD CD CD CO CD OD CD CD CD 0D 


AAAI IIR MPIPINIDS 2 2 


Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Se Se Se Se Ses 


AMAONNNUIT DP SP NWT PS OMOOOCCOCOCOCOCOOOCOOOOOOOOOOOOOOOOOoOO 
a a a 
NA ASANO OD NAME WIN 0 OOD NA UNE WIN O OD NA UE WI" OOONAULS Ww 


SOOOCOCOCOCOCOOCOCOCOOOOOOCOCOCOCOCOOOOOOOOOOO OOOO OOOOOOOOO 


4 
4 
4 
4 
4 
4 
4 
4 
84 
4 
ES 
85 
85 Re USER 
: 85 R POINTER TO UCB 
8 8S OUTPUT PARAMETERS: 
8 85 NONE 
8 85 
8 5 
8 860 QUEUE_STOP_REQ: 
3F }6— BB. CéOO8 86 PUSHR #*M<RO,R1,R2,R3,R4,R5> 
53 0104 ¢542 00 =08 86 MOVL  UCBSL_ROLIST(RSSCROI,R3 ; ; GET POINTER TO 1/0 PACKET 
13 08 86 BEQL 40% : PACKET ALREADY WENT AWAY 
0104 (542 D4 08 86 CLRL = UCBSLROLIST(RS)CR2] ; CLEAR SLOT 
20 a3 -03)=—o90s«éO8 86 MOVB #108 STOP, IRP$W_FUNC(R3) ; STORE STOP FUNCTION CODE IN IRP 
38 As. 550 s«éOOséO 86 MOVL 0, IRPSL fostt (Rs) : STORE STATUS CODE IN 10SB 
3c ASS 8 86 CLRL FResL 10$T2(R3) : CLEAR SECOND LONGWORD 
8 86 REQUEUE PACKET IN FRONT IF I/0 QUEUE (OR IF yor Busy HANDLE IT NOW) 
08 64 AS 08 €2 O8 87 bss ay cBsy BSY ,UCBSW_STS(R5),30$ T § {T ALREADY SET? 
00000000'GF 16 08 87 oa CSINI TEATE 2°NO. START DRIVER” GOING 
05 (11 8 87 BRB bos” 
8 8? 30S: DRIVER 1S BUSY. QUEUE PA KET 
OOAC CS) «663)—«COOE:sé«é#OB; 7 insaue IRPSL_1OQFL(R3) ucest INQFL(RS) 
SF ” : af 40$: poee #°M<RO,R1,R2,R3,R 


DRIVER. SRCILADRIVER.MAR; 1 (23) | 


C 4 
LADRIVER = LPA=11 DRIVER 16-SEP-1984 00:12: AX/VMS Macro v04-00 Page 4 
v04=000 SIGNAL_BFR_FULL = SIGNAL BUFFER FULL (OR ~$Ee 21382 aE: DRIVER. SRCJLADRIVER.MAR; 1 . (3%) | 
f 4 -SBTTL SIGNAL_BFR_FULL = SIGNAL BUFFER FULL (OR EMPTY) TO USER 
F 1881 ;+¢ 
: } gi 3 FUNCTIONAL DESCRIPTION: 
F 1884 ; THIS ROUTINE SIGNALS A USER PROCESS THAT A BUFFER HAS BEEN FILLED 
F 1885 : OR EMPTIED. SIGN ALING IS DONE BY SETTING AN EVENT FLAG OR 
A $3 ; ISSUING AN AST OR BOTH. NOTE THAT THE SIGNALING I 
0 i ri AFTER A FORK HAS BEEN PERFORMED. 
F 89 : CALLING SEQUENCE: 
F 1891 BSBB  SIGNAL_BFR_FULL 
O83F 1 9 : si 
O83F 1893 ; INPUT PARAMETERS: 
O83F 1894 : | 
O83F 1895 ; R3 ADDRESS OF 1/0 PACKET | 
O83F 1896 ; RG (USER) AST ADDRESS OR ZERO WHICH MEANS DON'T GIVE AN AST 
O83F 1897 ; RS ADDRESS OF UCB 
O83F 1898 : 
O83F 1899 ; IMPLICIT INPUTS: 
O83F 1900 : | 
O83F 1901 ; VARIOUS FIELDS IN THE 1/0 PACKET 
O83F 1908 ; ; 
O83F 1903 : OUTPUT PARAMETERS: 
OB3F 1904 : 
O83F 1905 : RO COMPLETION CODE 
OB3F 1906 : 
O83F 1907 ; COMPLETION CODES: 
O83F 1908 ; 
O83 1909 : SS$_NORMAL NORMAL SUCCESSFUL COMPLETION | 
83 1910 ; SS$_INSFMEM INSUFFICIENT DYNAMIC MEMORY 
O83F 1911 ; SS$~EXQUOTA EXCEEDED AST 
O83F 1918 ; 
08 F 4913 ; SIDE EFFECTS: | 
B3F 1914: 
O83F 1915; R1 IS NOT PRESERVED 
OB3F 1916 — | 
08 F 191 
3F 1918 SIGNAL_BFR_FULL: 
24 88 O83F 1919 PUSHR  #*M<R2,R5> : SAVE REGISTERS HERE SO RS CAN BE | 
03 (1 0 41 1920 : RESTORED AFTER FORK 
24 «BA B43 1921 POPR #*M<R2,R5> 
05 45 19 ; RSB 
46 1924 5$: MAKE SURE THERE I , ENQUGH AST QUOTA 10 ALLOCATE A FORK/AST BLOCK | 
55 OC AS) 3C (0846 = 1925 MoVZWL IRPSL_P ; GET PROCESS INDEX | 
00000000'GF 0D 084A 19 6 PUSHL Gr SCNSGL Octave’ ; PUSH ADDRESS OF PCB TABLE 
55 9645 00 0850 19 MOVL a(SP)+CRS5),R5 ; GET PCB ADDRESS | 
50 ¢ C 0854 19 8 MOVZ2WL &#SS$ Exauota RO > ASSUME ER ROR | 
38 A 83 57 19 TSTw © PCBSO_ ASTENT {RSD ; ENOUGH AST QUOTA LEFT? 
iE 5a 1930 BLEQ $ ; NO 
38 aS) soB? 3¢ 19 1 DECW  PCBSW_ASTCNT(RS) > YES, TAKE ONE AWAY 
SF 19 : ALLOCATE A PACKET TO BE USED AS A FORK BLOCK AND As! CONTROL BLOCK 
51 00C4 of 3C SF 1934 Rov ZL #IRPSC_ LENGTH,R1 LENGTH = AN 1/0 PACKET 
3 DD 0864 1935 : SAVE R3 
| 
| 


| ee ed el ele oe 4) ee 
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LADRIVER = LPA-11 DRIVER 16-SEP-19 212: AX/VMS Macro v04-00 Page 43 
VOe-000 SIGNAL_BFR_FULL = SIGNAL BUFFER FULL (OR g- Hie 4 88 2:38 LORIVER.SREICADRIVER-MAR: 1 age 34) 
| 00009900" ray 66 19 : JSB GE XESAL ONONPAGED : RETURNS P INTER TO PACKET IN R2 
| F D 6C 19 MOVL : RESTORE R 
9 5 6 1938 BLBS sR ; SUCCESSFUL ALLOCATION 
50 0124 BF ¢ é 1939 MOVZWL #SS$_INSFMEM, RO ; ERROR INSU FFICIENT DYNAMIC MEMORY 
8 AS 86 77 +1940 INCW PCBSQ_ASTCNT(RS) : ADD 1 BACK TO AST QUOTA 
| zh 1941 10$: RSB : ERROR RETURN 
78 1308 20$: : PUT SIZE AND TYPE INTO PACKET 
7B 1944 ASSUME IRP$B_TYPE EQ IRPSW_SIZE+2 
08 A2 00020004 BF 0 f 1945 MOVL  #<DYNSC VACBa16>* 1RPSC _LENGTH, IRP$W_SIZE(R2) 
| 0 1929 NOW FORK (AND RETURN STATUS TO CALLER) 
1948 Assume FKBSB_FIPL EQ IRP 
08 a2 0 90 0 8 1949 Kove ove ‘ #1PLS -QUEUEAST,FKBSB_FIPL(R2) ; SET FORK IPL 
50. (01 C OBA 1359 nOvzWL ep ees NORMAL ,RO : RETURN NORMAL STATUS TO CALLER 
93 195 
089 1954 : SET VARIOUS VALUES IN AST CONTROL BLOCK IN PREPARATION FOR 
0893 1955 > QUEUING AST 
51 OC Ad dO 089 1956 MOVL ~——IRPSL P1D(R3) .Rt : SAVE PID FOR CALL TO SCHSPOSTEF 
0c AS) 6551)—Sss«=#Os«0B97 «195 MOVL R1,ACBSL_PID(RS) : P 
10 a5 34 00 0898 1958 MOVE Ra ACBSL ASTER) : Ast ADDRESS 
| 0B AS 08 AS) 90 O8A1 1960 MOVE _1RPSB_RMOD(R3) ,ACBSB_ RMOD(RS) CCESS MODE 
0B AS) «6040 BF’ OBAG 1961 BISB $#ACBS$A_QUOTA, ACBSB R RMOD (RS) sit’ AST QUOTA ACCOUNTING FLAG 
| 1405 14 A3 00 pene 1966 MOVL IRPSL _ASTPRM(R ACBSL_ ASTPRMERS) 3; COPY AST PARAMETER 
0880 1964 30S: ; NOW POST EVENT FLAG. IF SUBFUNCTION CODE pSPECIELES IT 
52 01 9A 0880 1965 MOVZBL #PR 18.1 OCOM,R PRIOR ORITY INCREMENT CLASS 
OA 20 A 06 E1 088 1966 C #10$ tet evE tres. FuNc(R3) ei BRANCH IF DON’T POST E.F. 
3°22 a3 SA 0888 1967 MOVZBL 1nPsB “PE NE NSS OR 3 : EVENT FLAG NUMBER 
00000000'GF 16 88 1968 CHSPOSTEF : POST EVENS FLAG 
Hi 1990 35$: NOW EITHER Give AST OR DEALLOCATE BLOCK 
10 As D5 c 1971 iste ACBSL_A ST(R5) ; GIVE AST? 
00000000 ' GF 1? c? 1378 JMP G*SCHSQAST > YES 
CD 1975 40S: ; DON'T GIVE ast $0, DEA LOCATE PACKET 
52 OC AS 3C O08CD 197% MOVZWL ACBSL_PID(R ; BUT FIRST INCR. AST QUOTA 
' DD 08D1 197 PUSHL G*Scis L stavée : PUSH ADDRESS OF PCB TABLE 
52. 9642 00 08D7 1978 MOVL a(SP)+CR2),R2 : GET PCB ADDRESS 
soe A 58 DB 1979 Inc PCBS *ASTCNTIR2) : INCR. BUOTA 
00000000'GF 17 O8E1 1989 JMP Bee NE SDEANONPAGED 


| 
| 


~ 
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“LADRIVER = LPA-11 DRIVER 16-SEP=1984 00:12: AX/VMS Macro v04-00 Page 44 
‘voted DODIAGERL = DO DIAG. AND ERROR LOGGING $ ates 44 aa: YORIVER. SREICADRIVER.MAR: 1 9 (38) 
| 3 19 3 bene .SBTTL DODIAGERL = DO DIAG. AND ERROR LOGGING STUFF . 
E? 1985 ; FUNCTIONAL DESCRIPTION: 
i Ps 
£7? 19 5 : THIS ROUTINE DOES THE FOLLOWING: 
| £7? 19 8 : 1) CALLS THE DIAGNOSTIC BUFFER FILL ROUTINE WHICH COPIES 
£7 1989 : REGISTER SAVE INFO. INTO A DIAGNOSTIC BUFFER IF ONE 
£7 1990 : WAS SUPPLIED WITH THE REQUEST. 
£7? 1991 : 2) If THE 1/0 STATUS INDICATES A LOGGABLE ERROR, THEN 
£7 1998 : THE ERROR IS LOGGED. NOTE THAT THIS ROUTINE DOES THE 
| £7 1993 : PROCESSING NORMALLY DONE IN IOCS$REQCOM SINCE THIS DRIVER 
3 1994 ; DOESN'T CALL IOCS$REQCOM. 
3 1996 ; CALLING SEQUENCE: 
oat 1998 ; BSBW DODIAGERL 
EY 990 : INPUT PARAMETERS: 
tt 00¢ : RO FIRST LONGWORD OF 1/0 STATUS 
OBE? 2008 : R1 SECOND LONGWORD OF 1/0 STATUS 
OBE? 2004 : R3 ADDRESS OF IRP 
He 005 ; R5 ADDRESS OF UCB 
OBE? 009 ; IMPLICIT INPUTS: 
OBE? 009 : VARIOUS FIELDS IN THE IRP AND UCB 
O8E7 2011 : OUTPUT PARAMETERS: 
08E7 big r 
BBE, Soe: — 
He 015 : SIDE EFFECTS: 
0 £7 O17 : OFFSET UCBSW_FUNC IN THE UCB IS MODIFIED 
ae 
0 £7 o 0 DODIAGERL: 
07 +#2~8B E7 1 PUSHR #*M<RO,R1 Re> 
58 AS) «6D OO E 0 é PUSHL UCBSL_IRP(RS) ; SAVE THIS "CAUSE WE MODIFY IT 
009A cS 20 a3 B 6 EC o 4 MOVW  §IRPSW_FUNC(R3) ,UCBSW_FUNC(RS) —; SAVE FUNCTION CODE 
SB aS) 653)—COD F 5 MOVL  R3,UCBSL_IRP(R5) : MAKE THIS IRP THE ‘CURRENT’ ONE 
re $ : CALL DIAGNOSTIC BUFFER FILL ROUTINE 
00000000°GF 16 F6 : jsB G* 10C$D LAGBUF ILL 
FC 0 ; CALL ERROR LOGGER IF WE HAVE A LOGGABLE ERROR 
022¢ BF 38 a 8} 1 tnPu RPSL_1OSTI (RS) ,#SS$_TIMEOUT ; Is IT A TIMEOUT? 
00000000°GF 16 09 : JSB GPERL SDEVICTMO : YES, LOG TIMEOUT 
1€ «11 3 A 4 BRB 40 
C : 108: : I$ IT ANY OTHER LOGGABLE ERROR? 
0054 BF 38 3 8 iS tn RPSL_IOSTI(RS),#SSS_CTRLERR =; 1s IT A FATAL HRDWRE ERROR? 
0334 BF 38 A3 Bi 091 § CMPW =—s TRPSL_IOST1(R3),#SS$_DEVREQERR : IS IT A DEVICE REQUEST ERROR? 


PSS oiler ae er eee | ag | 
AX/VMS v04=00 Page 45 ~ 


“LADRIVER = LPA-11 DRIVER P-] 12: 
iva tt DODIAGERL = DO DIAG. AND ERROR LOGGING S$ so Hie $e 8834 14: - DRIVER. SREILADRIV ER.MAR; 1 (25) 
0 13 91A 206 BEQL : 
O1F4 BF OSB A 9 § 4 CRPu Imps. 10st ns) wsss_parity : UBA PARITY ERROR? 
2 2 2 [ : BNEQ 0$ 3; NO 
00000000'GF 16 3 4 44 30$: JSB G*ERLSDEVICERR : LOG DEVICE ERROR 
920A 46 40$ NOW FILL IN REST OF BUFFER LIKE JOCgREQCOM DOES 
1A. 64 AS 02 €5 092A 204 6 #UCBSV ERLOGIP YCBSW_STS(R ),50$ ; CLEAR ERROR LOG IN PROGRESS 
52. 0094 ¢5 DO 092 48 MOVL ucest _EMB R - Get ADDRESS S OF ERROR MESSAGE Bue FER 
AA2 644A 0 0934 204 MOVW CBSW-STS(R5) EN MB$W_DV_STS(R2) ;1 SERT FINAL DEVICE STATUS 
10 A2 0080 ¢ 80 939 2050 MOVW u cote aencut ee )  EMBSB_DV “ERTCNE(R2) NSERY ERROR COUNTERS 
A2 D 95F 3] MOva EMBSQ_DV_I0SB(R2) s" INSERT 1/0 status 
a343 038 JSB wens ieee ; RELEASE ERROR MESSAGE BUFFER 
58 AS BEDO 0949 055 50$: — POPL ucesi IRP(RS) : RESTORE THIS LOCATION 
07 #BA 038 POPR “m<RO,R1,R2> 
05 3eP 05 RSB 


| 
| 
Q0000000'GF 16 
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-SBTTL LA_LREGDUMP = REGISTER DUMP ROUTINE 
FUNCTIONAL DESCRIPTION 
THIS ROUTINE WRITES THE SAVED phy 


I 
CALLED FROM THE ERROR LOGGING ROUTIN 
FILL ROUTINE. 


GISTER DUMP ROUTINE 


ER 
= RE 
Hf 
He ; STERS INTO A BUFFER. IT IS 
ee INE AND THE DIAGNOSTIC BUFFER 
6 

$7 


ooooo0on0o ov 


Ab Ab Ab bb Ab tbh db dh dh db Ab db db dh hh dh db ih hb dh dh dah dh ch dich dab db dh dab dub dh del 


F&F - MD OWOCOOCCOCOCOCOCOCOCOCOSCOOCOOOOOOOOOOOO 


CALLING SEQUENCE: 
BSBW = LA_REGDUMP 
INPUT PARAMETERS: 


NOOO 


RO ADDRESS OF REGISTER SAVE BUFFER 
R5 ADDRESS OF UCB 

OUTPUT PARAMETERS: 

; NONE 

SIDE EFFECTS: 


R1,R2 ARE NOT PRESERVED 


Sesto oe 


4 te ctet PERE PD 


LA_REGDUMP : 
MOVL #6, (RO)+ 

MOVAL UCBSL_REGSAVE(RS) ,R1 

MOVL &#4.R 

10$: MOV TUL (R1)+, (RO) 


; INSERT NUMBER OF > aot A INTO BFR 
; GET Soe bn OF SAVE AREA 

3; NUMBER OF LPA-11 REGISTERS 

; COPY 1 Into BUFFER 


Stott 


DOOOOOOOOOOVOOOVOVOVOVOVOOOVOOOOOOOO 


$9 
7 
7 
3 
; 
# 
° 
9 


5 09 SOBGTR R2,10$ : LOOP 
60 61 7D 0961 209 mMOVa = (R17), (ROD : COPY DATAPATH NUMBER AND REGISTER 
05 0964 209 RSB 


“ 

a 

wo 

oO 

wm 

= 

- 
alee 
woo’so 
mo 

CGOOoOooooooooooooooooo 
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A-11 DRIVER 16-SEP-1984 00:12: AX/VMS Macro v04-00 Page 47 
| EL_10 = CANCEL 1/0 Bree pm obs 00:16:99 LOMIVER. eee icAbRiver.man:1 2% 3p) 
9 .SBTTL CANCEL_I0 = CANCEL 1/0 | 
| i $8 oe 
36 09 ; FUNCTIONAL DESCRIPTION: 
| 368 5101 3 THIS ROUTINE PERFORMS THE CANCEL 1/0 FUNCTION. ONLY PA 
965 21 ; : THAT HAVE A MATCHING CHANNEL INDEX AND PID ARE CANCELED. FIRST 
965 21038 : CURRENT PACKET (IF THERE IS ONE) IS CANCELED BY SETTING THE CANCEL 1/0 
965 2104 : 1T IN THE UCB. THEN ANY PACKETS ON THE INPUT Queue ARE CANCELE 
965 2105 : BY SENDING THEM TO REQ_COMPLETE WITH A STATUS OF SS$_CAN cEL L. THE 
965 21 : ; Y EXCEPTION IS THAT STOP Q10°S ARE NOT CANCELED. “F 
965 2107 : ONGOING DATA TRANSFERS ARE CANCELED BY SENDING THEM TO QUEUE *STOP_REQ 
9 198 3 WITH A STATUS OF SS$_ABORT. 
36 110 ; CALLING SEQUENCE: 
3% 118 ; BSBW/B 
36 116 : INPUT PARAMETERS: 
96 116 : Re CHANNEL INDEX 
965 2117 : R POINTER TO CURRENT I/O PACKET 
965 2118: RG PCB ADDRESS 
365 119 : RS POINTER TO UCB 
$65 1 : OUTPUT PARAMETERS: 
965 21 : : NONE 
a) gigs 
965 21 : CANCEL_10: 
0O0DC of BB 965 1 PUSHR #*M<R2,R3,R4,R6,R7> 
57 52 D0 0969 2128 MOVL R : CHANNEL INDEX 
54° 60 AG 0 % 3 MOVL  PCBSL_PID(R4).R4 + PUT PID IN R4 
970 2131 > FIRST CANCEL CURRENT 1/0 PACKET IF THERE 1S ONE 
53. pS 0970 21 g TSTL sR : POINTER TO CURRENT PACKET 
08 13 0972 21 BEQL 108 : NO CURRENT PACKET 
34 19 974 4 BSB CANCELCK : ck ECK K CHANNEL AND PID 
64 a5 08 H 378 § BSW PUCBSM_CANCEL ,UCBSW_STS(AS)— : ASET CANCEL BIT 
as 1 : 108: NOW CANCEL THE PACK TS ON THE INPUT QUEUE 
50 0830 ef 3¢ 97 139 hovZt #ss CANCEL, STATUS 
53 QOac cs oe $83 141 MOVAB UcBst INQFL(RS),R3 : GET POINTER TO QUEUE HEAD 
6 53 D 3 148 MOVL : SAVE POINTER TO QUEUE HEAD 
9 144 208: EXAMINE iePate PACKET IN QUEUE 
53 $3 D0 (09 145 AovL FL(R3) ,R3 : GET POINTER TO NEXT PACKET 
é D1 09 f 146 CMPL + REACHED END OF QUEUE YET? 
iA 13 14 BEQL : YES, DONE WITH THIS PHASE 
35 10 099 148 BSBB ANCELCK 3 CHECK CHANNEL AND PID 
FE 12 «40995 «(814 BNEQ : NOT A MATCH, GET NEXT PACKET 
20 a3 03 91 «099 130 CMPB #108. STOP, IRPSW_FUNC(R3)° ; DON'T CANCEL STOP REQUESTS 
EE 13 0998 2151 BEQL 208 : It'S A STOP. GET NEXT PACKET 
52 04 A3 D0 099D 2152 MOVL  IRPSL_1OQBL(R3) .R2 : HAVE A PACKET TO REMOVE. BACK UP 


] 


ee ee 
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LADRIVER = LPA-11 DRIVER 16-SEP-1984 00:1 AX/VMS Macro V04-00 Page 4 
Woe CANCEL_I0 = CANCEL 1/0 $73 P=1984 88: 12: $ YORIVER. SRCJLADRIVER.MAR; 1 ° (28) 
53 008 oF 9A 153 REMQUE a1RPSL 1OQFL(R2),R3 ; REMOVE PACKET FROM QUEUE 
FBG 9 9A 154 BSBW REQ cORPL LET + SEND PACKET TO REQUEST COMPLETE 
53 Dd 9A 155 OVL R2,R 
DE «11 948 : § : GET NEXT PACKET 
9AD 21 8 30$: NOW STOP ANY marCHine DATA TRANSFER REQUESTS 
50 26 3c O9AD 21 hovzu. #ss8_ ABORT : STATU 
O* bone S181 
98 18¢ 408: EXAMINE 4 xT afNTaY IN RE Ques EST LIST 
53 0104 C542 d 98 163 fou. ROLIST(RS)CR2),R3 _ pGET POINTER TO PACKET 
oF 1 9BA 188 BSBB RRCELCR ; CHECK CHANNEL AND PID 
0 1 9BC 166 BNEQ 0$ 3; NOT A MATCH 
FEGF 83 9BE 216 BSBW Queue. STOP_REQ ; QUEUE A STOP 
ED 52 08~SF2 aC) 168 50$: AOBLSS #8,R2,40$ ~ ; REPEAT FOR ALL Oe SEQUESTS 
OODC 8F BA He 190 POPR #°M<R2,R3,R4,R6,R7> 
05 09Cc9 2171 RSB 
O9CA 17¢ 
O9CA 217 
O9CA 2174 
9CA 2175 
3454 176 3; LOCAL SUBROUTINE TO CHECK FOR MATCHING CHANNEL AND PID 
9CA 178 : INPUT: 
9CA 2179; R3 POINTS 10, 1/0 PACKET 
9CA 2180; R4 CONTAINS PID 
9CA 2181; R7 CONTAINS CHANNEL INDEX 
9CA 21 ; ; OUTPUT: 
Bh 13 : 2 BIT IS SET IF BOTH MATCH, CLEARED OTHERWISE 
9CA 2185 CANCELCK: 
54 OC AS D1 OCA 21 6 CMPL IRPSL_PID(R3) ,R4 : CHECK PID 
04 12 09C 1 BNEQ : NO MATCH 
57 28 A3 81 09D 188 CMPW IRP$W_CHAN(R3) ,R7 : CHECK CHANNEL AND SET OR CLEAR Z BIT 
05 0904 2189 10$: RSB 


53 


52 


0104 (54 


0104 i 


EC 52 
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DRIVER 
COMPLETE_ALL = COMPLETE ALL DATA TRANSFE 


POPPIPIPIPOPIPIPOPOPININIPININIPIPININIPININIPIPININININYD — 2 2 = 


PROPMPINMINNININD = BOO OOOO O00 000000000 


BDNAMAE WN OS OD NA NE WIN OS OD NA NEU 0 OD NOUS 


J 4 


-SBTTL COMPLETE_ALL = COMPLETE ALL DATA TRANSFER REQUESTS 


;+¢ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE GOES THROUGH THE USER TABLE SENDING ALL CURRENT 


NONE 


; ; SIDE EFFECTS: 


; ¢ OUTPUT PARAMETERS: 


R2,R3 ARE NOT SAVED 


COMPLETE_ALL: 
CLRL R 
208: DO NEXT 
hove 
BEQL 
CLRL U 
BSBW 
30$: 7 at r ] 
RSB 


2 


ONE | 
cost. R 


CBS. R 
reas COM 
R22 


REQUEST LIST 
LIST(R RSJER J,R3 
IST(RS)CR2) 
ETE 


N 
Q 
QL 
PL 
0$ 


DATA TRANSFER REQUESTS TO REQ_COMPLETE. 
; ; CALLING SEQUENCE: 
BSBW COMPLETE _ALL 
INPUT PARAMETERS: 
RO FIRST LONGWORD OF 1/0 STATUS BLOCK 
R1 SECOND LONGWORD OF 1/0 STATUS BLOCK 
RS ADDRESS OF UCB 


INITIALIZE INDEX INTO REQUEST LIST 
oY ed TO 1/0 PACKET 
nent ~y UEST IN THIS SLOT 


SLOT 
SEND IT TO agousst COMPLETE 
GO BACK FOR NEXT 


$$EP=1986 80:16:39 EDRIVER.SRESLADRIveR.man:1 "29° (395 
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UNIT_INIT = LPA-11 UNIT INITIALIZATION $73 ety 90:12:38 YORIVER. SREILADRIVER.MAR: 1 ag (33) 
eC 0 a .SBTTL UNIT_INIT = LPA=11 UNIT INITIALIZATION | 
eC ; ; FUNCTIONAL DESCRIPTION: 
9EC 4: THIS ROUTINE IS ENTERED WHEN THE DRIVER IS LOADED AND ON POWER 
9EC 5: RECOVERY. ON DRIVER LOAD IT INITIALIZES THE UCB, OPTIONALLY 
9EC 5 : PREALLOCATES MAP REGISTERS, AND ALLOCATES AND LOADS MAP REGISTERS 
9EC : O PERMANENTLY MA RDA IN THE UCB. ON POWER RECOVERY, 
9EC § ; CLEARS THE MICROCODE VALID BIT, RELOADS THE MAP REGISTERS THAT 
9EC : MAP THE ROA IN THE UCB, AND THEN FORKS TO COMPLETE ALL ACTIVE 
eC 40 ; REQUESTS WITH A STATUS OF SS$_POWERFAIL. 
eC 4¢ : CALLING SEQUENCE: 
ogee 44 : JSB UNIT_INIT 
eC 46 : INPUT PARAMETERS: 
O3Et 48 ; RS ADDRESS OF UCB 
a3: 50 : OUTPUT PARAMETERS: 
9EC 51; 
i 
ovec 34 ; SIDE EFFECTS: 
O9EC 56 : RO = R4 ARE NOT PRESERVED 
bore 558R 
bore 59 UNIT_INIT: 
51 24 a5 00 ove¢ 60 MOVL UCBSL_CRB(RS),R1 : GET POINTER TO CRB 
OF 6 ; DETERMINE IF THIS IS INITIAL LOADING OR POWER RECOVERY 
67 64 AS 05 €0 e e§ BS #UCBSV_POWER,UCBSW_STS(R5),60$ ; BRANCH IF POWER RECOVERY 
oF ee : DRIVER LOAD 
OF 67° ; INITIALIZE INPUT QUEUE 
QOAC CS OOAC CS DE «OOF 68 MOVAL HEBEL. INOFL (RS) UCBSL_INOFL(RS) 
0080 (5 O0AC C5 ODE Hi ° MOVAL  UCBSL"INQFL(R5) -UCBSL~INQBL (RS) 
A 71 ; MAKE UCB OWNER OF IDB 
50 2C Al 00 OA 7 MOVL = CRBSL JNTD+VECSL 1DB(R1),RO ; GET POINTER TO IDB 
04 a0 55 00 A ee MOVL 5, 1DB$L_OWNER(RO) : MAKE UCB OWNER OF 108 
A 75 ; OPTIONALLY PREALLOCATE MAP REGISTERS 
53 00000000'GF 9A OA 7 MOVZBL nJOCSGH_LAMAPREG,.R3 ; NUM, TO PREALLOCATE (SYSGEN PARAM.) 
13 OA 7 BEQL + DON'T PREALLOCATE 
OOFE 8F 1 QA1 7 CMPW R3,#254 ; Prevent allocating more than 254. 
5 0A19 227 BLEQ = 1 f : LEQ implies we are OK. 
53 OOFE 8F C ng6 9 108: MOVZWL #254,R3 ; Else reduce request to 254 registers. 
gf 16 A { J JSB G* IOC SALOUBMAPRAN 3 Peraenent|y allocate spec ified number. 
Q E9 OA 6 BLBC : ERROR = DIDN'T ALLOCAT 
51 AS 00 OA 4 MOVL Ucest CRB(RS),R1 : Refresh Ri => CRB. 
8 8F AA OA2D 5 BICW evet A_MAPLOCK,=- : Undo permanent bit set by IOCSALOUBMAPRMN, 
4 Al As} 6 CRBSL_INTD+VECSw_MAPREG(A1) 


4 a ee 


NOW MARK IN UCB BITMAP AS MNBL TAPP MAP REGISTERS meee 


Ai 9 ACOML PATTERN (1 MEANS AVAILABLE) 
9 MOVTUL UCBSL_PREALLOC(RS).R4 ; RG contains starting map reatene? r) 


2 
6 rr 9 BSBW ALT_LOCALBI TMAP + ALT 
: ALLOCATE AND LOAD MAP REGISTERS TO PERMANENTLY MAP RDA IN UCB 
AaG 209 &sB6- LOADUCB ; LOAD BOFF, BCNT, AND SVAPTE IN UCB 
AG 9 BSBW s TMAPREG ; Reb AND Loab UBA MAP REGISTERS 
0 OAGC 229 MOVL  CRBSL “IDARR RS nares). aa SAVE ALLOCATED MAP REGISTER 


N 
MOVL (RS) UNIBUS ADDRESS OF RDA 
Bi sw pitty is SORLINE. vcasw. sseckel ; SET UNIT ONLINE 


POWER RECOVERY 


>> 
wie 
~ 
CGOOCGCOOOCoCOoO 
-—-o 
zac 
@ 
ce 
= | 
fo ] 
wx: 
g - 


Gree eeee 
So 
wr 


BICL #LASM_MCVALID,UCBSL_DEV Ee atin CLEAR MICROCODE VALID 


ASSUME ASS YTE EQ . 
BICw3 #*XxFEOO,RO dete BOFF(RS) ; INSERT BYTE OFFSET IN PAGE 
EXTZV #VASV gle r at : GET VIRTUAL PAG 


MOVL D 
MOVAL itor at SEUAPTE (RSS ; STORE SVA OF PTE FOR RDA 


4 
$ DEPE 
Ago 10 BISW  #UCBSA_ONLINE,UCBSW-STS(R5) SET UNIT ONLINE 
A646 1 RELOAD UBA MAP REGISTERS TO nap RDA IN UCB 
10 0A64 231 sBB LOADU AD BCNT, BOFF, AND SVAPTE IN UCB 
14 MOVL §UCBSL_RDAMR(RS), tOA D MAPREG, NUMREG, AND DATAPATH 
34 A AGA 2315 CRBSL cINTD*VEC Si yt B ; IN CRB 
00000000'GF 16 A 1 JSB 6" 1OCSLOADUBAMA : LOAD MAP REGISTERS 
A? 18 FORK TO COMPLETE ALL ACTIVE REQUESTS 
00cc C5 05 Nf 19 iste CBSL_FORKP(RS) ; INTERL OCK AGAINST MULTIPLE PWR FAILS 
55 oocc cS OE NA 1 MOVAL UCBSL_FORKP(RS) .RS : POINT TO FORK BLOCK 
55 FF34C5 DE OA ; ; MOVAL =UCBSL_FORKP(RS) RS ; RESTORE POINTER TO UCB 
oocc ¢5 Re A 4 UCBS$L_FORKP(RS) : INDICATE THAT FORK BLOCK IS AVAILABLE 
50 0364 i ¢ A C 5 nOvZuL #558 BOUERFAIC. RO ; RETURN STATUS 
FF SF % Ags $ BSBW  COMPLETE_ALL ; COMPLETE ALL REQUESTS 
05 Am : 90$:  RSB 
Ad 
Ao? 5884 
A97 : ; LOCAL SUBROUTINE TO LOAD BCNT, BOFF, AND SVAPTE FIELDS IN 
Ag? ; > UCB WITH VALUES WHICH DESCRIBE UCBSW_RDA 
A97 5 LOADUCB: 
7E AS) 3A 90 a9? 6 Vw #58,UCB$W_BCNT(RS) : SIZE OF 
50 016465 3E OA : MOVAW UCB$W_RDATRS) .RO : GET ADDRESS OF RDA 
40 
41 
ri 


“Lois oi 
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“v06 TLINIT = Upa11 UNIT INITIALIZATION $7355} oy 68:1 2:38 DRIVER.SRCJLADRIVER.MAR; 1 . (30) ve 
34 Al 7 MOVL CRBSL_INTD*VECSW_MAPREG(R1),- Bove INFO. ON MAP REGISTERS 

OOA8 C5 8 UCBSL-PREALLOC (RS) ; ALLOCATED 
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n 4 
UNE TINT LBA=11 UNIT INITIALIZATION 'SeSEP=toRG BOrtea9 FOR, 
05 ABB 2344 RSB 
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AB ¢$ 

AB Me 

ss $8 LA_END: ; ADDRESS OF LAST LOCATION IN DRIVER 
AB 0 

nae 935; 

AB9 g ~ END 
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CMDERR 
COMSPOST 
COMMON 
COMPLETE_ALL 
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CRB nTB 
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DC$_REALTIME 
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DYNSC_ACB 


VICTMO 


€ SALONONPAGED 
E SDE ANONPAGE D 


= LPA=-11 DRIVER 


SPRIMOOCWMOEe UN $$ OS FDL WOM NVOOCOCCCONMOCO@So 
DD DD 


oooo 
3 & 3 § 9 “QOOCOCOMOWOMMOOOOOOCSOOALSVAGCYS 


eecerere 
etererer 
00000748 R 
eeereeee 
eeereeee 


=x 


02 
03 


OoCCCOCCOoOoO COO 
WANA ws 


00 ft Bn Oe Bn Dae ns Bn Ot ne ne Bt Bo Bs bs Be Be bn ne De ag Ba ns Pe Pe Pt ne Be ne Or bs Os Bene Ot Oe De Oe RP ee TAI OR PMI oT 


DDD DBDBDBDDDD VOOOOCCCCCCCWCVCWCCVVQVQVCCCCOCOCOZZZ9E9OCCA RA Ke We Oe EE OE OE OE OE OK OK 


1 


“SEP-19 
“SEP=19 


4 
4 


00:18: 


OOooooooooooooooooo 


$$ AX/VMS M 


DRIVER. SRC 


RARRRHART 
RRARAAAE 
Reaereene 
Reereeee 
RARRRRAAE 
RRERRER 
REARRAAER 
RRERREEE 
RERKREET 
RRARRRERE 
RRAERREER 


300981 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0000003F 


Reeeeeee 
RRARRRERE 
REaeeee 
RRAKREEE 
Reeeeaeee 
Reeeeene 
Reaeeeenre 
geeeeree 
geeerenee 
Reaereenee 
gaeraeaenre 
geeeeeee 
geeaeeeee 


WOOW—NOOVIWOoo 


DWOLOS LS PONIOMO 


>< HC OE OK OE OE OE OK OE OE OK 


>< OK OK OK OK OK OK OK OK OK OK OK OK 


cro V04-00 
CILADRIVER.MAR; 1 
: 
03 . 
ty 
3 
03 
33 
3 
03 
03 
03 
03 


Oooooooooooooo 
WNAA.ANNAANAAANA 


pe 


L¢ 
v¢ 


AX/VMS Macro V04-00 


Bc 89:14:39 LORIVER. SRCILADRIVER.MAR; 1 a (33) 


= LPA=11 DRIVER 


Spaccten 
Symbol table 


MPAAMMM MMMM MMMM MIM MN) 
SOooooooooooooooooo 


=< x 
eeaeceocooe eececococe 
Sa VO DDOM & & FDO CMMMMMOMNNOMMORg ONIAIMOMMIPR OCR ter CUNO ee rar Oe 
CNDMMNORMN & # # FFT NMDOCOCDCOOCOCOCOCCOSOSOOSCOCOOOOOOOOOOOMOOOMIMIMOMMe 
SOCOCOOOSOS £ & # DOODODOOOSSOSOSOOSOOOOOOOOOOOOOOOOOOOOOOOSOOOOOOOO 
SOOCOOOSOSS « & e DOOOSOOSOSOSSOSOSSSOSOSOOOOOCOOOOOOOOOOOOOO OOOO OOOO 
SOOSOSOOSS £ # # COOCOSOOOOOSOSOSOOCOOOSCOOOOOOOOOOOOOOOOOOOOOOOOOOO 
SOOOCOCOSOOSS # # # DCOOOOOOOOOSOOOCOSCOOCOOOOOOOOOOOOOOOOOOOOOOOOOOS 
SOSSOOSSSS # # # SGOOOSOSOOOSSOSSCOSCOCOCOCOCOOOOOCOOOOOOOOOOOOOOOOOOOOS 


jAQawaw Qw &—&e. — w w a 2 

os j<a@eaedmda @€G2w0O00Q QQ fue Kee K—ue o o 

w Y > EMU eee Zuo Zua Zu - aMwaec aw 

a w Ww - w<5<a5 <«54>>'-2> YO YVOt vO zo Vv>aac oc 

a - > a Oezoz O22EAQ4 QO OOF OO << G2wewwetw Oo 
= a @ w @u vs am et Oe 6 mo +t > hh hUhhUhFhlUlhlUrtl ll lla! are Je teoOr Daw 
oro wv + ww OOxMu Se jj BBs IS 3BZaeeaecowjjn33s3 Pe pepe > tet pe 
vor 726A GA Ake MWY Owe VU>YUYIDe YY UWMVe ee OV YY)— os OA Zw LIE EU ES Dt 
— § &zocae JjOe £00248 t-tereeeeererereeceeseeeeee 8 8 § (Meee ewww xZzZze 
Ow uF evr 009642 F IVE OOOOOOOD Ij 1 BBBIBIIIBIISF  AMOOOwWOOCOw=--- 
RFOFD § EB WwW WMMAMA- VWF BAHAHARHAAAAAAAAAAAAAAAAAMAARM + ttittstseeeee ees 
——wwetl « JOOMUTIE Eee e+ O0.00000006000000004000000644 04 2 UMRHKHKHKHKHKHGHGHAGA 
PD DOO I I I hd et a tt at ak at ad Od td nd ad Od Od Od Od Od Od Od dO OEE LILIUVILILILIVIVILILILI LU? 
ASISBSSESEIEFMMNMNVMNXVMNMAMVMWMWVMMMWMVHMVMWHVHVHVHVHWHVWVHHHWHVWVHHVHVHWHHHWMVWHHNMNMMNMNMNNNONOYO 


~- Me ~~ lL ll el lll Ll | ll ll Ll) 
o oo o Cooooeo oooo 
=< 

o vo 

= ce a eacacac a a 
VDO VODD YVOODODO— ND LWVNIM — O BOODOOSOOCOMOCOW AG OTOR.COP-F-OOO # € -OvTDVvOan 
phe oF FA eo ek U6 9 9 6 0 0b 0 66 tb geo 4 > bo 98 CGOMVOSHODu # ¢ VLOOOOOM— 
DOOOOSOOOOOOOOOSOOVOSOOOOSOSSODSOOTOSOSOSS LOO ws KLOOOM & €— OOOOSOSOS 
DOOQOOOCOOSOOOSOSOOSOOOSOOOSOOOSOOONMSOTODOSOOOOCOCSOSOOSSOSSS £ « SSsSsssss 
DSDOOOOOOOSOSOOOOSOOSOOOSOOSOOSSOOSOSSOSSSOSSOSOSSSOSOSOSOSOSOSOSOSSSSOS £ « 
DOOOOOOOOOOOOSOSOOSOOSOSOOSOSSSSOOSSSSOSOSOSOSOSSSSSSS # « Ssssss 
SOOSGOOOOOSOOSOOSOSOSOOSSOSOOSOOSOSSOSOSSSOSOSOSSOSOSSOSSSOSSSSoSOoSSSS « « 4 
COOOOSOOOOOOSOSOSOCOSOSOSOSSOSOSSSSOSSOSSSSSSSSOSOSOSSSSSOSSSS # & GOOOOOSO 


oO aa 
w > w iat ws ws 

- « >w «x YEZ aa r=" ” 

” az w avr a2&Zzwwos, woca o -< - 
vee <0 ewe ——Z2Ow Owe CwWRK Eee mae ww Vv @ 2 
—— 8 ss ¢3333u az Of Ow #ee6es gs eee a o -— ~ ~ 
VE@ZORKUARZOVREZAN Bete urwerYw EEEEESE £EY> a « aw or 
aT Ay porte futrery ttt et tet (eetente $008 & « tw) a%CE =v 
—EFOOAfVYMMMu hvu vo Vet Ovedeacaeacaacaaacacaa 2 4aw a= - ada 

eee) eet tt tt ee EH KrVESTVEASGMVMNVHVVHHHHVVO «UT VE | a ‘a 

PARASRRSGR BAGS TO ee rereepeyeeistetetetetnt fyi iret tr] aa 
Vu w 

aaaaa Shannan anannnraaaa $eeepeceepeeveeevee ee C4 2352 4 ame 

@Qaeacaacacaacaaacadd dd dd dd ddd ddd ddd dee eee eee ee sax Sadadaae 

kt nd Ot Ot tt ot et ot et a a el ce ce cel wl ce ee ced ce ed ed cd ced cl ed ed eed ee ed ed ed ed ee eed ed = aaaaaaa 


eas Sa ee eae ae ee se 


LADRIVER = LPA=11 DRIVER 16-SEP-1984 00:12: AX/VMS Macro Vv04-00 Page 56 
| roay table ety 8:12:38 LORIVER. SREILADRIVER.MAR; 1 “ (33) 
SS$_IVBUFLEN s 4C UCBSW_STS = 00000064 
SS$_1VMODE = 2° UNIT INIT 26¢ P ; 
SS$_MCNOTVALID = ¢ UNLOCK 57C R 
SS$_NORMAL s 01 NLOCKF 572 R 3 
SS$_PARIT = F4 VASS_BYTE = 00 
SS$_POWERFAIL 2 $e VASS_VPN = 15 

SS$- TIMEOUT = C s 09 
STARTDATA_FDT 0000106 R 0 VECSB_DATAPATH s 13 

STARTIO : 342 R 0 VECSB_ = 0000 Oe 
STARTMP_FDT 165 R VEC$L_108 = 0000 30 

STARTREG 0007C3 R VECSL_UNITINIT = 00000018 
START_DATA tor & VECSM_LWAE = BR 88 bg 

STOP 4 R VECSM_MAPLOCK = 00008000 
STOP_MODE = 44 444 VECSS_DATAPATH = 00000005 
STRT-NXT_REQ OO008 1 R 03 VECSV_DATAPATH = 00000000 

TIMEOUT 00000758 R 03 VECSW_MAPREG = 90000019 
UCBS$B_DEVCLASS = 00000040 WAIT 00000407 R 03 
UCBSB_DEVTYPE = 00000041 WRITELOCK 000002DC R 03 
UCB$B_DIPL = 444449643 

UCBSB_ERTCNT = 0000008 
UCBSB_ = BPO SOT Rp 
UCBSK_SIZE = 000001A0 
UCBSL_CRB = 4 4 6d 
UCBSL_DEVCHAR = 000000358 
UCB$L_DEVDEPEND = 00000044 
UCBSL_ = 0000009C 
UCBSL_DUETIM = 0000006C 
UCBSL_ = 00000094 
UCBSL_FORKO 0000008 
UCBSL_FORKP 0000C 
UCBSL_FPC = 0000000 

CBSL_FR = 0000001 
UCBSL_INQBL 44 4 $94 
UCBSL_INOFL +i 49 
UCBSL_IRP = 0000005 
UCB$L_PREALLOC Q00000A 
UCBSL_RDABA $44 $99 

_RDAMR Q00000A 

UCBSL_REGSAVE 4 000 
UCBS$L_ROLIST 1 
UCBSL_SVAPTE 00000 

CBSM_BSY 0 19 


UCBSV~BSY 
UCBSV~ CANCEL 
UCBSV~ERLOGIP 
UCBSV~INT 
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LADRIVER = LPA-11 DRIVER 16-SEP- 
Psect synopsis =SEP- 
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Lowman arena amram 
! Psect synopsis ! 
teoeeren es eon nae on sd 
PSECT name Allocation PSECT No. Attributes 


7 
984 DRIVER. SRCIJLADRIVER.MAR; 1 (33) 


» O88 « 0088008 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NO oo NOEXE NORD NOWRT NOVEC BYTE 
SABSS 44h AO ( 416.) QO1 ¢ 1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_PROLOGUE 0000072 ( 114.) § ( §° NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
$$$115 DRIVER QOO00AB9 ( 2745.) ( 3.) NOPIC USR CON’ REL LCL NOSHR EXE’ RD WRT NOVEC LONG 
bw ree ween rer veer reer o amma $ 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.07 00:00:01.07 
pomnene processing 108 00:00: 3-38 0:00:03.44 
635 00:00:19.5 Se RE SF 
Synbol table sort 0 00:00:02.70 00:00:11.54 
Pass 2 388 OF +88: 4.96 00:00:16.90 
Symbol table output 17 00:00:00.19 00:00:01.19 
Psect synopsis output 0 00:00:00.00 00:00:00.02 
Cross-reference output 0 B8 80:59 be 00:00:00.00 
Assembler run totals 1180 00:00:27.86 00:01:44.81 
The working at Limit was 2250 pages. 
166852 b bytes, (326 pages) of virtual memory were used to buffer the intermediate c 
There were 1350 pages of symbol table space ot \ecated to hold 2487 non-local and $8 lecel symbols. 


353 source ee were read in Pass 1, produci ng, 23 object records in Pass 2. 


pages of virtual memory were used to define macros. 


oreo r men ene seer ewer werent 


! ; Macro Library statistics : 


Macro Library name Macros defined 
-8255SDUA g: SYS.OBJJLIB -MLB;1 
“$255$DUA28: CSYSLIBISTARLET.MLB;2 11 
TOTALS (all Libraries) 45 
2717 GETS were required to define 45 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:LADRIVER/OBJ=OBJ$:LADRIVER MSRC$:LADRIVER/UPDATE=(ENHS:LADRIVER) *EXECMLS/LIB 
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